Macro to delete blank rows
sub DeleteRealBlanks()
On Error Resume Next
Range("A1:A2000").SpecialCells(xlBlanks).EntireRow .delete
On Error goto 0
End Sub
--
Regards,
Tom Ogilvy
"Jim" wrote in message
...
I have text in Column A1:A2000 that has lots of blank rows
that I need deleted. I would like to compact all the data
so I don't have to scroll down so far.
Thanks
Jim
|