Now that I see you have Excel 2000, ignore this post.

Gord

On Mon, 09 Apr 2007 13:08:44 -0700, Gord Dibben <gorddibbATshawDOTca wrote:

Private Sub Color_Tabs()
Dim i As Integer
Dim ws As Worksheet
For i = 1 To Worksheets.Count
Set ws = Worksheets(i)
ws.Tab.ColorIndex = i
Next i
End Sub

Note: you are limited to the 56 colors Excel's palette provides.


Gord Dibben MS Excel MVP

On Mon, 9 Apr 2007 12:32:01 -0700, ub wrote:

Hi
I want to change the color of the worksheet tabs like different tab color
for different sheet
Is there any way i can do this by writing a VBA code.
Thanks