Hi Minitman,

What version of Excel are you using this code with?

What happens if you change the colorindex value (to,say,6)?

---
Regards,
Norman



"Minitman" wrote in message
...
Hey Norman,

Thanks for the quick reply

Here is the macro with your code snippet:

Cells.Select
Selection.Copy
ActiveSheet.Next.Select
Range("A1").Select
Selection.PasteSpecial Paste:=xlPasteFormats, Operation:=xlNone, _
SkipBlanks:=False, Transpose:=False
ActiveSheet.Tab.ColorIndex = 53
Range("B2").Select

It does not change the tab. What am I doing wrong?

-Minitman



On Fri, 29 Jul 2005 09:19:03 +0100, "Norman Jones"
wrote:

Hi Minitman,

Try:

Activesheet.Tab.ColorIndex = 53


---
Regards,
Norman



"Minitman" wrote in message
. ..
Greetings,

I am running a macro to copy the formats of one sheet to the next
sheet. One of the formats that I need to copy is the tab color. I
have the macro recorders code but it is for a specific sheet

Sheets("Jun-94").Select
ActiveWorkbook.Sheets("Jun-94").Tab.ColorIndex = 53

Anyone have an idea as to how to charge it for the current sheet?

As always TIA

-Minitman