What about this:
'_________________________________________________ __________
Public Sub deleteEmptyRow()
For Each rw In Selection.Cells
If rw.Cells(1, 1) = "" Then
rw.Cells(1, 1).EntireRow.Delete
End If
Next
End Sub
'_________________________________________________ __________
Of course that requires the "test" column to be highlighted. It's best to
only highlight a single column on the rows that you want to test (ie not the
whole column). You could also replace:
For Each rw In Selection.Cells
with
For Each rw In range("A1:A100")
or some other range as needed. If you want to test for a particular value
just put that value between the " ".
- Rm
"elkins" wrote:
I would like to delete a row if the value in a column is zero. How
could I do that with a simple macro? I am not that savvy when it comes
to Excel.
Thanks
--
elkins
------------------------------------------------------------------------
elkins's Profile: http://www.excelforum.com/member.php...o&userid=27707
View this thread: http://www.excelforum.com/showthread...hreadid=473963