Simple Question - VBA Object Name

[Benzula]

What is the VBA Object name for selecting the active sheets' tab to change its color.

Basically I want to change the color of a tab on a simple loop, but I can't select the active Tab.

Dim sheetNo As Integer


For sheetNo = 1 To Sheets.Count
   Sheets(sheetNo).Activate
    
ActiveSheet.ActivateTab.Select
    With ActiveTab
        .ThemeColor = xlThemeColorAccent2
        .TintAndShade = 0.399975585192419
    End With
    Next
End Sub

 

[Michael M]

Maybe something like

Sub MM1()
Dim Sht As Worksheet
For Each Sht In Worksheets
    With Sht.Tab
        .Color = 255
    End With
Next Sht
end sub

 

[Momentman]

Something like this, changes the colour of the active sheet tab to RED

Sub activesheetcolour()
    Dim ws As Worksheet
    Set ws = ActiveWorkbook.ActiveSheet
    ws.Tab.Color = vbRed
End Sub

or in a loop

Sub activesheetcolour()
    Dim ws As Worksheet
    For Each ws In ActiveWorkbook.Worksheets
        ws.Tab.Color = vbRed
    Next ws
End Sub

 

[gardnertoo]

This worked for me in Excel 2010. No need to activate the sheets either, I commented that line out:

Dim sheetNo As Integer
For sheetNo = 1 To Sheets.Count
   'Sheets(sheetNo).Activate
    With ActiveWorkbook.Sheets(sheetNo).Tab
        .ThemeColor = xlThemeColorAccent2
        .TintAndShade = 0.399975585192419
    End With
Next sheetNo

 

[Benzula]

Thanks guys! This is perfect!