Makroyu tekrar sayısı..

[acolkesen1]

Merhaba Arkadaşlar,
Aşağıdaki yaz_ekle isimli makroyu A1 hücresindeki sayı kadar tekrar ettirmek istiyorum.
Sub yaz_ekle()
[C5:E15].PrintOut
[c5].Value = [c5] + 12
End Sub

Aşağıdaki şekilde denedim ama olmuyor.. A1 de kaç yazarsa yazsın ekle makrosu bir kere çalışıyor
Sub çalıştır()
Call ekle: [a1]
End Sub
Acaba nasıl bir kod gerekiyor?
İlgilenen arkadaşlara teşekkür ederim..

 

[omerceri]

For i = 1 to Range("A1")
Call ekle:
Next

 

[acolkesen1]

Sayın omerceri,
İlginiz ve cevabınız için çok teşekkür ederim. iyi çalışmalar.Esenkalın..