How to look for empty cells in a range using vb?

[GIS2013]

Hi, here is my code, the problematic line is this: "if cell.value = "".. if TRUE I want Excel to color the entire row, isn't the way to look for empty cell?

Sub look_for_empty()
Worksheets("...").Activate
With ActiveSheet
Dim rng As Range
Dim cell As Range
Set rng = .UsedRange
For Each cell In rng
If cell.Value = "" Then
cell.EntireRow.Font.ColorIndex = 4
End If
Next cell
End With
End Sub

[ragulduy]

ActiveSheet.UsedRange.SpecialCells(xlCellTypeBlanks).EntireRow.Font.ColorIndex = 4

Assuming the blanks are not as a result of a formula.

[Olly]

So you're trying to set font to green for all rows which contain a blank cell within the used range, right?

Sub foo()
Dim c As Range
For Each c In ActiveSheet.UsedRange
    If c.Value = "" Then
        c.EntireRow.Font.ColorIndex = 4
    End If
Next c
End Sub

This works for me...

[JOHN H. DAVIS]

Is the code not working? I tested it and it worked.

[GIS2013]

@yudlugar thanks. Where in my code should I add your line?

[ragulduy]

Replace it all:

Sub look_for_empty()
ActiveSheet.UsedRange.SpecialCells(xlCellTypeBlanks).EntireRow.Font.ColorIndex = 4
End Sub

Although if your code didn't work that probably won't either, are you sure they are blank and not a space or something? An example workbook might be helpful in this case.

[GIS2013]

Thanks guys it works now..and I learnt somthing new.