delete blank rows in multiple worksheets

**pacman76** · 10-02-2012, 05:46 PM

I want to delete all blank rows in all worksheets, have found the following code but this only deletes the selected data on the active worksheet. Any suggestions would be very gratefully received. Thanks

Please Login or Register  to view this content.

**patel45** · 10-03-2012, 03:14 AM

this macro checks only column A for empty cells and delete entire rows

Please Login or Register  to view this content.

**HaHoBe** · 10-03-2012, 03:30 AM

Hi, patel45,

the macro will only search Column A of the ActiveSheet while you augment the counter (exactly the line you commented is necessary for your example). Please mind that Sheets.Count includes Charts and Macro Sheets as well while Worksheets.Count will only include Worksheets where the code would be useful.

@pacman76:
please use Code-Tags for displaying as per Rule #3 demanded

Please Login or Register  to view this content.

Ciao,
Holger

**patel45** · 10-03-2012, 03:51 AM

Originally Posted by HaHoBe

Hi, patel45,
the macro will only search Column A of the ActiveSheet while you augment the counter (exactly the line you commented is necessary for your example).

Thanks for advise, your solution is better, but why did you insert

Please Login or Register  to view this content.

?
this does not work on my test

**HaHoBe** · 10-03-2012, 04:00 AM

Hi, patel45,

a mixture of codes that simply should throw up an exception and should have been worked over in the message window before answering (slipped through sadly enough). Code should read like

Please Login or Register  to view this content.

Ciao,
Holger

**pacman76** · 10-03-2012, 04:59 AM

Hi,
Thanks for the help however I can't seem to get this working. Have tried to run the macro but it doesn't seem to do anything. Am I missing something here? Do I need to alter the code in any way?

**HaHoBe** · 10-03-2012, 05:16 AM

Hi, pacman76,

I can't seem to get this working.

Where did you put the macro? According to the use of ThisWorkbook it should only work from within the workbook with the code. If it is in say the personl.xls ThisWorkbook should be replaced with ActiveWorkbook.

If you can´t get it to go with this change please attach a sample of the workbook to have a look at it - the last code provided worked fine in my sample workbook.

Ciao,
Holger