Dan

Or you could use something like this, with blanks in A

Sub delRows()
Range("A:A").SpecialCells(xlCellTypeBlanks).Entire Row.Delete
End Sub

--
HTH
Nick Hodge
Microsoft MVP - Excel
Southampton, England
www.nickhodge.co.uk
HIS


"danw" wrote in message
...
I want to use a macro to delete out all empty rows in a spreadsheet. There
are 1,700 rows and 10 columns. If all of the cells are blank in any of
the
rows, I want to delete that row. I am fairly new with VBA.