Code will nicht
Lorenz
Der untenstehende Code funktioniert leider nur wenn er manuell (F8) angefordert wird. Leider nicht beim öffnen der Datei.
Weiss vielleicht jemand warum es sich so verhält?
Private Sub Workbook_Open()
Dim vMonth As Variant
If ThisWorkbook.Path = "V:\Neu\Test" Then
vMonth = Format(Date, "mmmm yyyy")
For Each sht In ThisWorkbook.Worksheets
If sht.Name vMonth Then sht.Visible = xlSheetVeryHidden
Next
End If
End Sub
Gruss
Lorenz