You can only color the worksheet tabs if you're using xl2002 or higher.

What version of excel are you using?

Gene Augustin wrote:

From Shane Devenshire

.ActiveSheet.Tab.ColorIndex = 42

*********
From Sheeloo:

Sheets("QIF").Tab.Color = 255

********

Both codes give error:

Run-time error '438'
Object doesn't support this property or method

Is there an add-in that I should be using?
I have Analysis Toolpac and Analysis Toolpac-VBA installed.

On 3/7/09 9:31 PM, in article
, "Sheeloo" <Click above
to get my email id wrote:

Sub colorSheet()
Sheets(1).Name = "QIF"
Sheets("QIF").Tab.Color = 255
Sheets.Add After:=Sheets(Sheets.Count)
Sheets(2).Name = "IIF"
Sheets("IIF").Tab.Color = 65535
End Sub

--

Dave Peterson