need help to find out flaw

[ANKUSHRS1]

i have written below macro. in dis macro i want to delete blank record. this macro run correctly sometime but not all the time..rows aren't got deleted evenif match condition.....pls help....

[Sub delete_blank_cell()
Dim c As Long
Dim i As Long
Dim a As Long

c = a + 40



For i = c To a Step -1

If Range("d" & i).Value = "" Then

Range("d" & i).EntireRow.Delete Shift:=xlUp

End If

Next


End Sub]

 

[Chihiro]

If you check, D7 isn't blank actually. It contains single space character.
What do you want to do in such case?

 

[ANKUSHRS1]

thanks