mijn tabbladen in VBA veranderen in een nummer

[rvangroen]

SUB alles legen

Sheets(Array("AM1", "AM2", "AM3", "AM4", "AM5", "AM6", "AM7", "AM8", "AM9", "AM10", _
"AM11", "AM12", "AM13")).Select
Sheets("AM1").Activate
Range("X2,X24,X46,X68,X90,X112,X134,X156").Select
Range("X156").Activate
Selection.ClearContents
Sheets(Array("AM1", "AM2", "AM3", "AM4", "AM5", "AM6", "AM7", "AM8", "AM9", "AM10", _
"AM11", "AM12", "AM13")).Select
Sheets("AM1").Activate

end sub


Bovenstaande code gebruik ik om een aantal cellen wekelijks te legen in mijn tabbladen AM1 t/m AM13 echter als ik de naam verander dan doet de macro het (uiteraard) niet meer. Ze blijven altijd wel hetzelfde nummer in de excel sheet, dus dezelfde volgorde, er worden dus geen tabbladen tussen gevoegd. Hoe kan ik ervoor zorgen dat de macro automatisch wordt aanpast als ik de tabblad naam verander?, of hoe krijg ik een tabbladnummer in mijn code?
Bedankt voor jullie hulp!

 

[wampier]

even uit de losse pols:

for i = 1 to 13
sheets(i).Range("X2,X24,X46,X68,X90,X112,X134,X156").clearcontents
next i

indien het niet sheet 1 tot 13 is, natuurlijk even het juiste nummer gebruiken

 

[rvangroen]

Thanx!! Als je het ziet is het altijd zo simpel bedankt voor de tijd en moeite!