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