Apply Module to Multiple Worksheets

The code below clears the desired cells but only for the worksheet 'Spreadsheet'. I would like to perform the same function over a vast number of worksheets in my workbook. The worksheets I would like this to apply to are called 'Spreadsheet (2)', 'Spreadsheet (3)', 'Spreadsheet (4)', 'Spreadsheet (5)' etc. The other worksheets in the workbook called 'Overview', 'Summary' and 'Database' I would prefer this not to be applied to. I don't have very good knowledge of this aspect of excel so any advice on how to amend the module code below to clear the same cells in the similarly named worksheets would be appreciated.

Sub Reset_Cells()

Application.ScreenUpdating = False

Sheets("Spreadsheet").Select

Range("O6,O9,O11,O13").Activate

Selection.ClearContents

Range("A1").Select

Application.ScreenUpdating = True

End Sub

Maybe this:

Please Login or Register  to view this content.

Regards, TMS

Thank you for your fast response TMS. I'm sure this is down to my inexperience, having copied and pasted your code into VBAProject > Modules > Module1 the clear cells function no longer appears to be working at all. Are there any more details which I can provide you with to help?

If it is easier to apply the clear cells (O6, O9, O11 & O13) function to all worksheets in the workbook then that would be an alternative.

Thanks YasserKhalil, I noticed my mistake and made this correction before initially replying. This has been removed from the code above.

The original was untested. However, it is now tested and it works, unchanged other than to remove the extraneous comma in the original range.

Please see the attached sample workbook which I have created to test the code.

On the Overview sheet, there are buttons to Reset and (Re)Fill the cells.

Regards, TMS

Is the problem solved now?


Regards, TMS

Thank you very much for taking the time to put the attached xlsm together TMS. Due to my lack of knowledge of VBA I haven't been able to successfully get the macro to function as hoped. I have found an alternative approach which works well for me so please don't exhaust any more of your time on me or this problem.

Best regards, Matt

OK, please mark as solved.

If you are satisfied with the solution(s) provided, please mark your thread as Solved.


New quick method:
Select Thread Tools-> Mark thread as Solved. To undo, select Thread Tools-> Mark thread as Unsolved.

Or you can use this way:

How to mark a thread Solved
Go to the first post
Click edit
Click Go Advanced
Just below the word Title you will see a dropdown with the word No prefix.
Change to Solved
Click Save


You may also want to consider thanking those people who helped you by clicking on the little star at the bottom left of their reply to your question.