Gruppe
Allgemein
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