vba select 2 or more color tab at once

[kelvin_9]

Hello All,

i'm wondering how could i select more than 1 color tab at once, i can only select one at a time
ps. i use color index 7 & color index 8
thanks for your guidance

Sub Macro1()
'
' Macro1 Macro
'

'

Dim ws As Worksheet
Dim strg() As String
Dim count As Integer
count = 1
 
    For Each ws In Worksheets
        If ws.Tab.ColorIndex = 8 And Not ws.CodeName = "Sheet1" 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

 

[kelvin_9]

It needs to go directly after the loop & before the ReDim

Fulff
i got you now, thank you very much

Sub kelvin()
Dim ws As Worksheet
Dim strg() As String
Dim count As Integer

ReDim strg(1 To Worksheets.count)
    For Each ws In Worksheets
        If (ws.Tab.ColorIndex = 7 Or ws.Tab.ColorIndex = 8) And Not ws.CodeName = "Sheet1" Then
            count = count + 1
            strg(count) = ws.Name
        Else
        End If
    Next ws
    
    If count = 0 Then
      MsgBox "No tabs"
      Exit Sub
    End If

    ReDim Preserve strg(1 To count)
    Sheets(strg).Select

End Sub

 

[Fluff]

You're welcome.