Glad to help

--
Don Guillett
Microsoft MVP Excel
SalesAid Software

"FJ" wrote in message
...
Hi, Don, thank you very much for that code. I tried it and and it worked
great. :)

Thanks again!



"Don Guillett" wrote:

Try this. Test to see if rows selectedthen change .select to .delete
Sub delzerorows()
lr = Cells(Rows.Count, "a").End(xlUp).Row
Range("A1:F" & lr).AutoFilter Field:=2, Criteria1:="0"
Range("A2:F" & lr).SpecialCells(xlCellTypeVisible).EntireRow.Sele ct
Range("a1:f" & lr).AutoFilter
End Sub


--
Don Guillett
Microsoft MVP Excel
SalesAid Software

"FJ" wrote in message
...
Hi, I'm trying to write a macro that will delete an entire row if the
value
of the cell in column B of that row is 0. In this case, the number
format
is
set to display zeros as dashes. I'm not sure if that would make a
difference
in the way the macro is written. Anyway, I've tried the following with
no
success. Can anyone tell me where I'm going wrong?

Range("b:b").SpecialCells(xlCellTypeAllFormatCondi tions,
0).EntireRow.Delete

I'm very new to VBA so I might be totally offbase with this to begin
with.

Thanks in advance for any help.