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

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