I need help with a loop to count all colored tabs in a workbook. I have 4 different colors, I would like to data to sum on the first tab of the workbook showing how many green, yellow…ect.

Public Sub

For Each mysheet in ActiveWorkbook.sheets
     If mysheet.tab.color = RGB(255,0,0) then
      mysheet.tab.count 
     End If
  Next mysheet
End Sub

This code was an experiment using code from another Macro, this is not a functioning code. I was thinking about a do while loop with counter?