ich such nach einem Makro, wenn mehrere Sheets makiert
sind, das eine Meldung erscheint.
Schön würde es sein, das die Sheets (Tabellennamen) aufgelistet werden bzw.
per MSGBOX.
gruß Kurt kl
Sub GewBlaetterListen()
Dim TabBlatt As Worksheet
Dim Blattliste As String
If ActiveWindow.SelectedSheets.Count > 1 Then
For Each TabBlatt In ActiveWindow.SelectedSheets
Blattliste = Blattliste & TabBlatt.Name & vbCrLf 'Zeilenumbruch nach jedem _
Blattnamen
Next TabBlatt
MsgBox "Folgende Tabellenblätter sind aktuell markiert: " & vbCrLf & vbCrLf _
& Blattliste, vbInformation, "Markierte Blätter"
End If
End Sub