Many thanks JE and Paul - just the job!

Francos Hookham


"JE McGimpsey" wrote in message
...
And note that it won't work cross-platform, so you'd have to use
conditional compilation:

#If Mac Then
'display toolbar
#Else
Activesheet.Tab.ColorIndex = 5
#End if



In article .com,
wrote:

Activesheet.Tab.Colorindex = 5

will colour the tab blue. I don't think you can get at the font in a
tab, but could be wrong about that.