Hello,

I have a worksheet with 30 worksheets. I would like to color each tab
a different color for reference purposes. I can't figure out how to
wright a macro to select a sheet and then select a tab color.

This is my macro to select each worksheet. How can it be modified to
select each color also?

Sub WorkSheetsTabColor()
'Tab Color every other worksheet
'Define Variables
Dim i As Integer
'Sreen does not flash (Turn Screen Updating "OFF")
Application.ScreenUpdating = False
'Changes Tab Color every other worksheet 2-count
For i = 1 To Worksheets.Count
Worksheets(i).Tab.ColorIndex = 44 'Yellow
i = i + 1
Next i
'Turn Screen Updating "ON"
Application.ScreenUpdating = True
End Sub


Thank you for your help,
jfcby