Not quite as easy as I suggested, so here is some code

Sub DeleteZeroes()
Dim rng As Range
Set rng = Range("M8:M999")
rng.Cells(1, 1).EntireRow.Insert
rng.AutoFilter Field:=1, Criteria1:="=0"
rng.SpecialCells(xlCellTypeVisible).EntireRow.Dele te
End Sub

--

HTH

RP
(remove nothere from the email address if mailing direct)


"Bob Phillips" wrote in message
...
Follow the steps I gave and record a macro while doing it.

--

HTH

RP
(remove nothere from the email address if mailing direct)


"ianalexh" wrote in message
...
i'm sorry; i wasn't specific. i want to set a macro to accomplish this,
so
not-so-savvy computer users can click a button and the job gets done.

ianalexh


"Bob Phillips" wrote:

Do a filter (DataFilterAutofilter) and select a value of 0. Delete
the
visible rows.

--

HTH

RP
(remove nothere from the email address if mailing direct)


"ianalexh" wrote in message
...
this is probably very simple but i am new to writing code (excel
2000).

i want to scan cells M9:M999, and for every cell where the value is
0
i
want
that row deleted. so for instance M9's value is 453 and row 9 will
stay,
but
M10's value is 0 so row 10 is deleted. so on and so forth.

thanks so much!
ianalexh