Thread: TAB color based on Empty cell

Hi Guys,

In the entire workbook I would like the sheets with D3 cell empty to show the Tabs as red so I would know they need to be filled in - any ideas?

How about this

Sub colortab()
Dim ws As Worksheet
    For Each ws In ActiveWorkbook.Worksheets
        If ws.Range("D3") = "" Then ws.Tab.Color = 255
    Next ws
End Sub

Originally Posted by davesexcel

Try this, it goes in the WorkBook Module...

Private Sub Workbook_SheetActivate(ByVal Sh As Object)
    For Each Sh In ActiveWorkbook.Worksheets
        If Sh.Range("D1") = "" Then
            Sh.Tab.ColorIndex = 3
        Else: Sh.Tab.ColorIndex = xlNone
        End If
    Next Sh
End Sub

Thank you jeffery and Dave! EXcellent.

I have gone with Daves, as Jeffreys would not work for me. If I wanted to exclude one sheet only in the book (called averages) would there be a way around it?

this is magic , thankyou

Dave,

thank you soooooooooooo much - Im going to have a great weekend because of this! thank you !!!!