collating worksheets with the same tab colour

[fry]

Can anyone suggest the best way to do this.

I'd like to assign the code to a button so that when pressed only the tabs of a specific colour appear in the workbook (in this case dark green (colour 10) and blue (colour 32).

Having done that I'd have to add a button to get back to normal which in my case is showing worksheets with only green (colour 43) and yellow (colour 6) tabs

Any help much appreciated

 

[Stephan Hoenselaar]

Try:
Sub HideUndhide_Click()
Dim curWorksheet As Worksheet
For Each curWorksheet In ThisWorkbook.Worksheets
If curWorksheet.Tab.ColorIndex = 10 Then
curWorksheet.Visible = False
End If
Next
End Sub
You should of course modify this VBA text to suit your specific requirements...