Delete blank rows on manual selection

Hi all,

In the code below I am using the Worksheets().Range() method to delete blank rows. What would be the code that when I manually select a column on whichever worksheet I choose all blank rows will be deleted? This code as it stands now is working for Worhsheet(1), but I can't go to Worksheet(2) without changing the code.

Also, I would like to put in a vbYesNo to save the worksheet. I want to ask if the user wants to save the changes. If not the changes are cancelled. How would I do this?

Thanks in advance,

JDB

Please Login or Register  to view this content.

Hi,

Just modify line as follows :

Please Login or Register  to view this content.

HTH
Carim

Hi, thanks Carim for the help. I'm getting a complie error on the ActiveWorkSheet statement. It's telling me variable not defined. I'm not sure why.

JDB

Oops ... Sorry ...

ActiveSheet !!!
and not ActiveWorksheet ...

HTH
Carim

Carim,

Thanks, that got it working.

JDB

Glad your problem is fixed.

Thanks for the feedback

Carim