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

You should STAY in the ORIGINAL thread. Try this idea.

Sub cc()
For Each c In ActiveSheet.UsedRange
If c.Interior.ColorIndex > 0 Then MsgBox c.Row
Next c
End Sub

--
Don Guillett
Microsoft MVP Excel
SalesAid Software
(E-Mail Removed)
"Amie" <(E-Mail Removed)> wrote in message
news:03227cff-7b52-48c2-838c-(E-Mail Removed)...
> 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
>
>