ndendrinos
Well-known Member
- Joined
- Jan 17, 2003
- Messages
- 1,694
Trying to edit code to make all sheets visible EXCEPT sheet "Log"
Here is the code:
Here is the code:
Code:
Private Sub Workbook_Open()
Application.ScreenUpdating = False
Dim Sheet As Worksheet
'make all sheets visible
For Each Sheet In Worksheets
If Sheet.Name <> "Prompt" Then
Sheet.Visible = xlSheetVisible
End If
Next Sheet
'hide the prompt and go to A1 on sheet1
Sheets("Prompt").Visible = xlSheetVeryHidden
Application.Goto Sheet1.[A1], scroll:=True
'clean up
Set Sheet = Nothing
ActiveWorkbook.Saved = True
Application.ScreenUpdating = True
End Sub