code to choose tab color?

[Mekinnik]

How can I make the following line of code randomly choose the tab color
index? I would like the code automaticlly color the tab not me choose it.

..Tab.ColorIndex = 3

 

[Mekinnik]

I have tried this line of code I found in the community forums, but it does
not produce random numbers as far as color numbers go, when I reset the the
macro and start again it produces the same number/color. Does anyone have any
suggestions to this problem?

n = Int((54 * Rnd) + 1)
..Tab.ColorIndex = n

 

[Jim Cone]

It works for me.

1. Did you specify the sheet?...
Worksheets(1).Tab.ColorIndex = n
2. Are you using Excel 2002 or a later version?
3. Is N declared as a Long?
4. Try using "Randomize" as a single line just before "n =..."
--
Jim Cone
San Francisco, USA
http://www.realezsites.com/bus/primitivesoftware
(Excel Add-ins / Excel Programming)



"Mekinnik"
wrote in message
I have tried this line of code I found in the community forums, but it does
not produce random numbers as far as color numbers go, when I reset the the
macro and start again it produces the same number/color. Does anyone have any
suggestions to this problem?

n = Int((54 * Rnd) + 1)
..Tab.ColorIndex = n