Good point! Thanks for picking up on that.

--
Rick (MVP - Excel)


"Lars-Åke Aspelin" wrote in message
...
On Wed, 29 Jul 2009 14:27:30 -0400, "Rick Rothstein"
wrote:

Give this macro a try...

Sub CheckCellD3()
Dim WS As Worksheet
For Each WS In Worksheets
If WS.Range("D3").Value = "" Then
WS.Tab.ColorIndex = 3
Else
WS.Tab.ColorIndex = xlNone
End If
Next
End Sub

And if you have other sheets in the workbook besides sheets 1,2,3,..31
that you don't want to include in this check you may replace the

For Each WS in Worksheets

with

For i = 1 to 31
Set WS = Worksheets(""&i)

Hope this helps / Lars-Åke