Mega Code Archive

 

Categories / VisualBasic Script / Excel

 

Controlling Worksheet Visibility

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