Changing tab color continued

  • Thread starter Thread starter Amie
  • Start date Start date
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
 
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
 
Back
Top