vba select more fill color tab

[kelvin_9]

Hi All,
I need some guidance on below code that how can I run this perfectly exclude sheet1(custom name: personalization)

Thank you very much

Sub No Fill()
Dim ws As Worksheet
Dim strg() As String
Dim count As Integer
count = 1
 
    For Each ws In Worksheets
        If ws.Tab.Color = 0 Then
            ReDim Preserve strg(count) As String
            strg(count) = ws.Name
            count = count + 1
        Else
        End If
    Next ws
    
    Sheets(strg(1)).Select
    For i = 2 To UBound(strg)
        Sheets(strg(i)).Select False
    Next i
 
End Sub

 

[Micron]

or
If ws.Tab.Color = 0 And Not Sheets(ws.Name).Index = 1 Then ?

 

[kelvin_9]

thank you very much to Fluff
thank you very much to Micron

both are wonderful and do my needs

 

[Fluff]

One word of warning. If someone changes the order of the sheets then this could fail Not Sheets(ws.Name).Index = 1 Then You would be better off using the codename.

 

[Micron]

10-4
I thought the index property was based on the order that a sheet was added to the workbook sheets collection and wouldn't change based on its position in the tab order. Perhaps that is not the case. I learned of the codename property today - thanks.

 

[Fluff]

I wish it was that simple. However the Index is the position of the sheet within the workbook, so if you move sheets around their index will change.