vbaのシートの挿入とテキストファイル読み込みをセットにしてループさせたい

Question

シート名1~5を挿入し、その都度各シートにテキストファイルを読み込ませたいのですが、自分の考えたコードだとシート"5"にしかテキストファイルが読み込まれません。なぜなのでしょうか。

Sub データ入力テスト()
    
Dim fileName As Integer
Dim buf As String, n As Long
Dim NewWorkSheet As Worksheet

    For fileName = 5 To 1 Step -1
        Set NewWorkSheet = Worksheets.Add()
        NewWorkSheet.Name = fileName
        
      　Open "読み込みたいテキストファイルへのパス" For Input As #1
        Do Until EOF(1)
            Line Input #1, buf
            n = n + 1
            Cells(n, 1) = buf
        Loop
    Close #1
   Next filename
End Sub

追記：作られるシートの数は5つです。
ご指摘の通り、n=0と初期化したところすべてのシートにテキストファイルが読み込まれました。

Comments

[meg_]

・シートは5つ作られているのですか？
・変数nの初期化がされてませんが良いのですか？

[leeev]

ご指摘どおりn=0としたところ無事に読み込まれたのですが、meg_さんをベストアンサーにさせていただきたいのですが、どうすればよいのでしょうか。

[meg_]

元々各シートにデータは読み込まれていたかと思います。おそらくシートの下の方に入力されていたため、気付かなかったのかと。
自己解決にしていただいて結構ですよ。

Answer 1

n=0の初期化を行なっていなかったため、シートを移動するたびに地続きのセルにテイストファイルが読み込まれていました。