Help needed for modifying code - clear contents

Hi all,

I have the following code to clear data in multiple sheets (altogether 78 sheets)

Sub sbClearCellsOnlyData()
Sheets("Activation (2)").Select
Range("A21:L6000").ClearContents
Sheets("Activation (5)").Select
Range("A21:L6000").ClearContents
Sheets("Action (5) ").Select
Range("A21:L6000").ClearContents
Sheets("Action (2)").Select
Range("A21:L6000").ClearContents
Sheets("Activation (3)").Select
Range("A21:L6000").ClearContents
Sheets("Action (3)").Select
Range("A21:L6000").ClearContents


End Sub

could anyone help me to modify the code instead of listing all the sheet names and ranges?

Thank you in advance.

Hello SamD,

Something like the following should work:-

Please Login or Register  to view this content.

If there are sheets that need to be excluded from having data cleared, let us know.

I hope that this helps.

Cheerio,
vcoolio.

Hi,
Try this code.

Please Login or Register  to view this content.

Thank you so much for all your response... I forgot to mentioned that there are 4 sheets within the workbook are master/Output sheets.

I want to clear all the Contents of the other sheets except for the 4 Output sheets.

how should i modify this?

Hello Sam D,

Try the following:-

Please Login or Register  to view this content.

Replace "Output sheet1" etc...... with the actual sheet names. Make sure that, in the code, they are spelled/punctuated exactly the same as the tab names.

Cheerio,
vcoolio.

Thank you so much for all of your help !! That works great !!

You're welcome Sam. I'm glad that we were able to help.

Cheerio,
vcoolio.