Code falsch?
03.01.2016 20:05:39
Lorenz
Der untenstehende Code macht nur das was er soll (zwar nur mit "F8") er soll aber
bei "Workbook open" laufen. Wo ist der Haken, bzw was ist falsch?
Private Sub Workbook_Open()
Dim StrWks As String, Sht As Worksheet
If Left(ThisWorkbook.Path, 1) = "V" Then
StrWks = Format(Date, "MMMM YYYY")
For Each Sht In Worksheets
If Sht.Name StrWks Then Sht.Visible = xlSheetVeryHidden
If Sht.Name = StrWks Then
Sht.Visible = xlSheetVisible
Sht.ScrollArea = "d2:D63"
End If
Next
End If
End Sub
GrußLorenz