A
Amie
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
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