VBA If Multiple Sheets Are Visible Then Very Hidden Else Visible

[Lewzerrrr]

Hi,

I've tried to come up with this code but it won't work - can anyone advice please? Trying to make a button that will hide and unhide the sheets below however need it to be very hidden.. I can make it work with normal hidden but this allows the user to unhide manually which I don't want to happen.

Thanks,

Sub Button1_Click()

'Dim PW As String


'PW = InputBox("Please enter the password")


'If PW = "****" Then


Application.ScreenUpdating = False


For Each sh In Sheets(Array("Clothing (frag)", "Clothing (All)", "Sub Brand Clothing (Frag)", "Sub Brand Clothing (All)", "Non Clothing (Frag)", "Non Clothing (All)"))
If sh.Visible = xlVisible Then
sh.Visible = xlVeryHidden
Else
sh.Visible
End If
Next


Sheets("Area Summary").Activate


Application.ScreenUpdating = True


'Else


'MsgBox "Password incorrect. Please try again."


'End If


End Sub

 

[Lewzerrrr]

Nvm solved it :D

On Error Resume NextFor Each sh In Sheets(Array("Clothing (frag)", "Clothing (All)", "Sub Brand Clothing (Frag)", "Sub Brand Clothing (All)", "Non Clothing (Frag)", "Non Clothing (All)"))
If sh.Visible = True Then
sh.Visible = xlVeryHidden
Else
sh.Visible = True
End If
Next