Select Worksheets by Tab Colour

Question

Hi.&nbsp; I need some help please?&nbsp; My file is organised by WSheet Tab Colour.&nbsp; I need to be able to select all by Tab Colour or some other criteria.&nbsp; Alternately by some other method such as creating a list and then selecting that list to loop thru.&nbsp;Any help much appreciated.&nbsp;RegardsJon

hansvogelaar · Accepted Answer

Jon_Morgan1958&nbsp;
Perhaps something like this?
Sub Test()
    LoopTabColor Color:=vbYellow
End Sub

Sub LoopTabColor(Color As Long)
    Dim wsh As Worksheet
    For Each wsh In Worksheets
        If wsh.Tab.Color = Color Then
            ' Do something with this sheet
            Debug.Print wsh.Name
        End If
    Next wsh
End Sub

Forum Discussion

Select Worksheets by Tab Colour

2 Replies

Resources