It comes up with errors to make results 2 and recent invisible. help?
Private Sub Workbook_Open()
ThisWorkbook.Activate
ActiveWorkbook.Windows(1).Visible = True
Sheets("swb").Activate
Sheets("results 2").Visible = False
Sheets("recent").Visible = False
Sheets("swb").Range("h4").Select
Call HideAllSheets
End Sub
'Hide Charts on Open
Sub HideAllSheets()
Application.ScreenUpdating = False
Dim ch As Chart
For Each ch In Charts
ch.Visible = xlSheetVeryHidden
Application.ScreenUpdating = True
Next ch
ThisWorkbook.Protect Password:="password"
End Sub
Bookmarks