VBA code to hide multiple tabs at workbook close

[Spartan300]

Hello,

I currently have the following code: -

Private Sub Workbook_BeforeClose(Cancel As Boolean)
Dim ws As Worksheet
ActiveWorkbook.Unprotect Password:="AmenhotepIV"
Sheets("Sheet1").Visible = False
For Each ws In ActiveWorkbook.Worksheets
If UCase(ws.Name) <> "SHEET1" Then ws.Visible = True
ActiveWorkbook.Protect Password:="AmenhotepIV"
Next ws
ThisWorkbook.Save
End Sub

And was wondering how I can have the code hide more than one tab if it is visable when the workbook is closed?

Many thanks

 

[VoG]

Try like this

Sub Hide_button()
Dim ws As Worksheet
For Each ws In ActiveWorkbook.Worksheets
    With ws
        If .Tab.Color = vbRed Then .Visible = xlSheetHidden
    End With
Next ws
End Sub

 

[panpluto]

Works perfectly,

Big Thanks!

Matt