Tab color based on cell color

[excelcrisis]

Is there a way to change the tab color of a sheet based on the color of any cell in a range of cells? In other words, if any cell in Range A1:A100 interior color is yellow, I want the tab for that sheet to be yellow as well. I need it for each sheet in the workbook. I just can't seem to put it together.

 

[JoeMo]

Assuming the yellow you are using corresponds to color index 6:

Sub ColorTab()
Dim sht As Worksheet, c As Range
For Each sh In ActiveWorkbook.Worksheets
    For Each c In sh.Range("a1:a100")
        If c.Interior.ColorIndex = 6 Then
            sh.Tab.ColorIndex = 6
            Exit For
        End If
    Next c
Next sh
End Sub

 

[excelcrisis]

Many, many thanks JoeMo! Works as I had hoped.