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
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
VBA Code:
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