Try this-

Sub MakeFontRed()

Dim num As Integer
num = 4

For Each sh In Worksheets
sh.Activate
Do
If Range("BU" & num).Value = 0 Or Range("BV" & num).Value = 0 O
Range("BW" & num).Value = 0 Then
Range("BU" & num).EntireRow.Font.ColorIndex = 3
End If
num = num + 1

Loop Until Range("BU" & num).Value = ""
Next

End Sub



-Gitcyphe

--
Message posted from http://www.ExcelForum.com