This is great thank you. Another question what if I want to say:

If any of the cells in the worksheet are colored yellow then color
the
tab yellow? Here is the code that I have written but this is only
good for column 1


Private Sub Worksheet_SelectionChange(ByVal Target As Range)


Dim iRow As Integer
iRow = 1


Do Until iRow = 300
If Cells(iRow, 1).Interior.Color = 65535 Then
With ActiveSheet.Tab
.Color = 65535
End With
Exit Do
Else
With ActiveSheet.Tab
.Color = 0
End With
End If
iRow = iRow + 1


Loop


End Sub