ich möchte beim Schließen einer Datei mit ca. 50 Tabellenblätter alle bis auf 2 ausblenden. Von den Tabellenblättern sind nur einige nicht ausgeblendet, der Rest ist auch schon so ausgeblendet.
Ich dachte an so etwas:
Private Sub Workbook_Close()
ActiveWorkbook.Sheets("Zweckbestimmung").Visible = True
ActiveWorkbook.Sheets("EC-Export").Visible = True
ActiveWorkbook.Sheets("WM-Tool").Visible = xlSheetHidden
ActiveWorkbook.Sheets("AM-Tool").Visible = xlSheetHidden
End Sub
Aber das muss doch irgendwie einfacher gehen und vor allem, es sind ja nicht alle "Active", oder?Vielen Dank schon mal vorab.
Axel