View Single Post
  #6   Report Post  
Posted to microsoft.public.excel.misc
Dave Peterson Dave Peterson is offline
external usenet poster
 
Posts: 35,218
Default Macro change sheet tab color and name

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