Sheet isimlerini döngüye sokmak

[Gamma]

Merhaba, başlıkta doğru ifade edebildim mi bilmiyorum ama şunu yapmak istiyorum:

Excel dosyamda ilk heet'in A isimli. Diğerleri ise 1'den 55'e kadar sıralı isimlere sahip. Sheet ismi Sheet1 değil, Sadece 1.
Kodda sırasıyla her bir sheet'in E1 hücresini A sheetimde A1 hücresinden başlayarak alt alta yazdırmak istiyorum.
Ancak Sheet isimlerini 1'den 55'e kadar değiştirebilen bir döngü kurgulayamadım.
Yardımcı olabilirseniz çok memnun olurum.

 

[Orion1]

En kolay döngü budur.Nasıl yapamadınız hayret.

Sub sheetyaz59()
Dim i As Byte
Sheets("A").Select
Range("A:A").ClearContents
For i = 1 To 51
    Cells(i, "A").Value = Sheets(CStr(i)).Range("E1").Value
Next i
MsgBox "İşlem tamamdır" & "evrengizlen@hotmail.com"
End Sub

 

[Gamma]

Çok teşekkür ederim

 

[Orion1]

Çok teşekkür ederim

Rica ederim.
İyi çalışmalar.