Excel VisualBasic Script

Sub HideWorksheet(ws As Worksheet, bVeryHidden As Boolean)
    If bVeryHidden Then
        ws.Visible = xlSheetVeryHidden
    Else
        ws.Visible = xlSheetHidden
    End If
End Sub