or:
in VBA:
Sub row()
If Range("A4").Value = 0 Then
Selection.EntireRow.Delete
ActiveCell.Offset(RowOffset:=-1, ColumnOffset:=0)
End If
End Sub

"VBA Noob" wrote in
message ...

You will need VBA Code

Try this. Press Alt + F11. Insert module then paste in the below code.
Press alt F8 and run Delete_row.

See attched to make it a event procedure e.g If someone enters 0 in
cell A4 it will delete row automatically

http://www.cpearson.com/excel/events.htm

Sub Delete_row()

Dim Rng1 As Range
Set Rng1 = Range("A4")

If Rng1.Value = 0 Then
Rows("4:4").Delete Shift:=xlUp
End If

End Sub

VBA Noob


--
VBA Noob
------------------------------------------------------------------------
VBA Noob's Profile:
http://www.excelforum.com/member.php...o&userid=33833
View this thread: http://www.excelforum.com/showthread...hreadid=564434