Sub SetWorksheetVisibility()
Dim myWorksheet As Worksheet
On Error Resume Next
Set myWorksheet = ThisWorkbook.Worksheets("Checks and Options")
Application.ScreenUpdating = False
ThisWorkbook.Worksheets("Sheet1").Visible = True
ThisWorkbook.Worksheets("Sheet2").Visible = True
ThisWorkbook.Worksheets("Sheet3").Visible = True
Application.ScreenUpdating = True
Set myWorksheet = Nothing
End Sub
|