VBAを使った､数式参照の仕方を教えてください｡ Sheet1?5の各｢A1｣の内容を､ Sheet4に､A1からA2,A3,A4,A5と順番に反映されること｡ Sheet4には､各｢A1｣の値そのも…

VBAを使った､数式参照の仕方を教えてください｡

Sheet1?5の各｢A1｣の内容を､
Sheet4に､A1からA2,A3,A4,A5と順番に反映されること｡
Sheet4には､各｢A1｣の値そのものを張り付けるのではなく､参照すること｡

お手数ですがお願いします｡

Range("Sheet4!a1").Formula = "=Sheet1!a1"
Range("Sheet4!a2").Formula = "=Sheet2!a1"
Range("Sheet4!a3").Formula = "=Sheet3!a1"
Range("Sheet4!a4").Formula = "=Sheet4!a1"
Range("Sheet4!a5").Formula = "=Sheet5!a1"

Sheet4 に､Sheet1?5 を参照する式を貼りつけるので､あってるのかしら？
Sheet1?5 以外のｼｰﾄにではなく？

【追記】

すいません｡追加でお願いです｡Sheet数が何十個となる／Sheet名が変わる場合がある､という場合に､各ｼｰﾄ名を上記の通り入れるのが手間です｡
そこまで含めて､自動化するﾌﾟﾛｸﾞﾗﾑを教えて頂けますか｡

ｼｰﾄを追加して､追加したｼｰﾄ以外のｼｰﾄの A1 ｾﾙを指すような式を､追加したｼｰﾄの A 列に上から埋めていく VBA のｺｰﾄﾞ｡

Sheets.Add after:=Sheets(Sheets.Count)
For i = 1 To Sheets.Count - 1
 Range("A" & CStr(i)).Formula = "='" & Sheets(i).Name & "'!A1"
Next

Sheet数が何十個となる／Sheet名が変わる場合がある､という場合に､各ｼｰﾄ名を上記の通り入れるのが手間です｡
そこまで含めて､自動化するﾌﾟﾛｸﾞﾗﾑを教えて頂けますか｡