Try this

Sub test()
On Error Resume Next
Worksheets.Add.Name = "Acorn"
Sheets("Acorn").Tab.ColorIndex = 46
On Error GoTo 0
End Sub

Blue = 5


--
Regards Ron de Bruin
http://www.rondebruin.nl


"Jako " wrote in message ...
Hello,

Could anyone please tell me how i can create a new worksheet called
"Acorn" and have the Tab coloured Orange.

Also in a seperate routine i want to change the Tab colour to blue if
cell A17 contains data.

Thanks in advance.


---
Message posted from http://www.ExcelForum.com/