Da die Mitarbeiter ganz gerne mal die Blattnamen ändern, sollen diese über ihre Codenamen angesprochen werden.
Sub gruppieren()
ThisWorkbook.Sheets(Array(Tabelle2, Tabelle4)).Select
Application.Dialogs(xlDialogPrint).Show
End Sub
"Tabelle2" und "Tabelle4" sind die von Excel vergebenen Codenamen.Der verwendete Code erzeugt Laufzeitfehler 13 (Typen unverträglich).