Namen der selektierten Tabellenblätter auslesen

Thema: Allgemein - Gruppe Arbeitsblatt

Arbeitsmappe

196802    182702

Problem: Die Namen der selektierten Tabellen sollen genannt werden.

StandardModule: Modul1

Sub GroupSheets()
   Dim iCounter As Integer
   With ActiveWindow.SelectedSheets
      For iCounter = 1 To .Count
         MsgBox .Item(iCounter).Name
      Next iCounter
   End With
End Sub