Excel VisualBasic Script

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