Sub delete_rows_zero() Dim nMaxRow As Long, nrow As Long nMaxRow = ActiveSheet.UsedRange.Rows.Count For nrow = nMaxRow To 1 Step -1 If Range("A" & nrow).Value = 0 Then Range("A" & nrow).EntireRow.Delete End If Next nrow End Sub
http://www.mrexcel.com/forum/showthread.php?t=52132