Macro to hide/unhide WS based upon WS tab color

  • Thread starter Thread starter Joe M.
  • Start date Start date
J

Joe M.

I have this macro to hide all WS that have red tabs. But it dosn't work. It
only hides one tab when there are many that are red. What is wrong?

Sub Hide_shts()
Dim ws As Worksheet
For Each ws In ThisWorkbook.Worksheets
If ws.Tab.Color = 255 Then
ws.Visible = False
End If
Next
End Sub

Thanks,

Joe M.
 
To my opinion it should work.
Try, maybe:
 
Back
Top