Tab Colour Change
 

Hi,

I am using the following to change cell colours in a individual cells in a
range but I also want the Tab Colour to change if any of the cells in the
named range are changed. Any ideas on the correct code ?

Private Sub Workbook_SheetChange(ByVal Sh As Object, ByVal Target As Range)

If Not Intersect(Target, Sh.Range("B3:B36")) Is Nothing Then
Target.Interior.ColorIndex = 6

Thanks.

Tab Colour Change
 

Doh, Cancel ! I just worked it out...

"MAS" wrote in message
...
Hi,

I am using the following to change cell colours in a individual cells in a
range but I also want the Tab Colour to change if any of the cells in the
named range are changed. Any ideas on the correct code ?

Private Sub Workbook_SheetChange(ByVal Sh As Object, ByVal Target As
Range)

If Not Intersect(Target, Sh.Range("B3:B36")) Is Nothing Then
Target.Interior.ColorIndex = 6

Thanks.