Macro to clear a specific range of cells from a specific range of worksheets

[copperwasher]

Hello Top Excel Gurus

I have a workbook containing 36 sheets

Sheets 1 and 2 are summary sheets - that must remain untouched!

sheets 3 to 33 contain pictures (which i have managed to code and add a button to remove them).
The sheets are all differently named too (forex pairs)
But the clearing of data from Rows 1 to 100 is a challenge or the range A1:J100 (Which is the better option)
there are no formulas in the cells, just data which has been pasted in these rows.

My attempt:
Sub ClearContents()
Dim I As Long

For I = 3 To 33
Sheets(CStr(I)).Range("A1:J100").ClearContents
Next I

End Sub

I can see that the sheet reference is not working - i dont know how to specify the worksheets no.3 to no.33


Any help is very much appreciated.
CW

 

[Fluff]

How about

 Sheets(I).Range("A1:J100").ClearContents

 

[copperwasher]

How about

 Sheets(I).Range("A1:J100").ClearContents

Hey there Mr Fluff

Rather than slap the VBA into the excel doc and continue, i do like to learn and live examples sure are useful...

I get the range: clearcontents, that makes sense...
That is something I have learnt today

Sheet (I)
How will the macro know what sheets to clear and which to leave?
The first two sheets must remain untouched.
The sheets from no.3 to no.33 which are labelled as FX pairs for the ClearContents code.

I do appreciate your help
CW

 

[Fluff]

I is the sheet index (the position of the sheet running left to right), so the code will clear the cells on the sheet 3rd from the left, then the 4th from the left, etc.

 

[copperwasher]

I is the sheet index (the position of the sheet running left to right), so the code will clear the cells on the sheet 3rd from the left, then the 4th from the left, etc.

Do I just use your code or is it meshed into mine...

I am sorry, I don't follow the sheet index - I am not familiar with VBA code

Or do I set I = 3 ?

 

[Fluff]

Just replace this line of your code

 Sheets(CStr(I)).Range("A1:J100").ClearContents

with the code I suggested.

 

[copperwasher]

Just replace this line of your code

 Sheets(CStr(I)).Range("A1:J100").ClearContents

with the code I suggested.

Brilliant Fluff.

Thank you kindly for your work...
it works perfectly...
of course

 

[Fluff]

You're welcome & thanks for the feedback.