The answer could be as shown below:


Sub Delete_Rows()
'
Dim rwIndex, ColIndex
'
rwIndex = 1
ColIndex = 4
Do Until Range("A" & rwIndex) = ""
Cells(rwIndex, ColIndex).Select
If ActiveCell = 0 Then
Selection.EntireRow.Delete
End If
rwIndex = rwIndex + 1
Loop
Range("A1").Select
End Su

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