djl0525
Well-known Member
- Joined
- Dec 11, 2004
- Messages
- 1,240
The code is stopping on the "sh" in the first line,
For Each sh In ThisWorkbook.Sheets
Private Sub Workbook_Open()
Application.ScreenUpdating = False
For Each sh In ThisWorkbook.Sheets
If sh.Name <> "sheet1" Then sh.Visible = True Else sh.Visible = xlVeryHidden
Next sh
Sheet1.Visible = xlVeryHidden
Sheet2.Visible = xlVeryHidden
Worksheets("Welcome").Activate
Range("A1").Select
Application.ScreenUpdating = True
End Sub
What am I missing, please?
DJ
For Each sh In ThisWorkbook.Sheets
Private Sub Workbook_Open()
Application.ScreenUpdating = False
For Each sh In ThisWorkbook.Sheets
If sh.Name <> "sheet1" Then sh.Visible = True Else sh.Visible = xlVeryHidden
Next sh
Sheet1.Visible = xlVeryHidden
Sheet2.Visible = xlVeryHidden
Worksheets("Welcome").Activate
Range("A1").Select
Application.ScreenUpdating = True
End Sub
What am I missing, please?
DJ