How to I delete all of the rows except the header row from multiple worksheets

Use this code in a blank module of your file- Press Alt + F11, on the left hand side you will see Microsoft Excel Objects. Right click and select Insert->Module. Copy the code -

Please Login or Register  to view this content.

Where i have put "A" & "B", replace it with the sheet names where the rows shouldnt be deleted.

Incase the number of sheets where the rows are to be deleted are more than the number of sheets where it shouldnt, use the above macro. Just in case the number of sheets where the rows shouldnt be deleted are less, reverse this line - change

Please Login or Register  to view this content.

to

Please Login or Register  to view this content.

This will save you time in typing out all the sheet names.

Hello busiessanalyst,

Welcome to the Forum!

This macro lets you specify the worksheets not to clear. Since the macro clears the sheet based on the UsedRange property, it does not matter if the header row is in row 1. The macro assumes the header row is the first row used on the worksheet.

Please Login or Register  to view this content.