Private Sub Workbook_BeforeClose
18.08.2015 21:00:19
Heinz
Könnte man den unteren Code etwas eleganter schreiben?
Denn wenn ich die Arbeitsmappe schließe, Flackert der Bildschirm so lange bis alle Sheets geschlossen sind.
Also etwa im Hintergrund schließen.
Danke & gruß Heinz
Private Sub Workbook_BeforeClose(Cancel As Boolean)
Application.ScreenUpdating = False
Dim wks As Worksheet
For Each wks In Worksheets
If wks.Name "Haupt" Then wks.Visible = xlSheetVeryHidden
Next
Application.ScreenUpdating = True
End Sub