View Single Post
  #5   Report Post  
Posted to microsoft.public.excel.misc
Gene Augustin Gene Augustin is offline
external usenet poster
 
Posts: 36
Default Macro change sheet tab color and name

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