Sie wollen mit #VBA alle ausgewählten (=markierten) #Excel #Arbeitsblätter nacheinander bearbeiten? Das machen Sie so:

Public Sub AuswahlBlattSchleife()
Dim mySh As Worksheet
For Each mySh In ThisWorkbook.Windows(1).SelectedSheets
    MsgBox mySh.Name ' was auch immer Sie nun machen wollen
Next mySh
Set mySh = Nothing
End Sub

Die SelectedSheets sind eine Aufzählung, die je Fenster existiert. Ich gehe bei dieser Schleife davon aus, dass Sie die Arbeitsmappe in nur einem Fenster geöffnet haben 🙂 Und dass Sie mit der Arbeitsmappe, in der der Code steht (ThisWorkbook) arbeiten wollen – sonst müssen Sie ThisWorkbook durch ein anderes Workbook-Objekt ersetzen.