Macro to Delete Blank Rows

[smlaff01]

I have a spreadsheet with approximately 100 columns of data. Within this spreadsheet there are MANY (75%) rows with no data in them.

Is there away that I can use a macro to check across the rows and delete the ones that contain no cells with data?

I have a macro that will delete blank rows, but I have to highlight a column for the macro to search in. My problem with this is the data could be in any column, so this won't work.

Any suggestions would be greatly appreciated.

[davesexcel]

Here's a code
http://www.cpearson.com/excel/deleting.htm