Sheets("Sheet1").Visible = xlVeryHidden
Sheets("Sheet2").Visible = xlVeryHidden
Sub HideSheetVeryHidden()
With Sheets("Sheet3")
.Visible = xlSheetVeryHidden
End With
End Sub
Sub UnHideSheetVeryHidden()
With Sheets("Sheet3")
.Visible = True
End With
End Sub