エクセルで複数のCSVを取得したい

エクセルで複数のCSVを取得したいです。
その際にシート1のセルにあるファイル名を順番に読み込んで出力しようとしています。

シート1のC8からC10のセルにそれぞれファイル名があります。
（ちなみにCSVにはA列にだけ数値が格納されています）
sample1.csv
sample2.csv
sample3.csv

これを以下のようにfor - nextで上から順番に読み込もうとしたのですがうまくいきません。
何が間違っているのか教えて頂けないでしょうか。よろしくお願いします。

============
Sub TEST()
Dim PATH As String
Dim myFile As String
Dim myPath As String
Dim newWB As Workbook
Dim FileName As String
Dim T As Integer

For T = 8 To 10
FileName = Cells(T, 3)
Next T

myPath = “ここにCSVのあるフォルダのパス”
myFile = myPath & FileName

Do Until myFile = ""
Set newWB = Workbooks.Open(myFile)
‘それぞれ別々のシートに出力します
newWB.Sheets(1).Copy Before:=ThisWorkbook.Sheets(1)
newWB.Close False
myFile = ""
Loop
End Sub

============

No.2 ベストアンサー 回答者： トモクンアヤチャン 回答日時： 2021/11/11 16:18

For T = 8 To 10

から
Next T
までの間に全部入れないといけないんじゃないですか。
Do Until myFile = ""
Loop
のループは無意味だと思います。1回しか回らないような。

この回答へのお礼

お二人の言う通りNextの位置が悪いのとDo loopが不要なのが原因でした。
ありがとうございました。

お礼日時：2021/11/16 23:45

No.1 回答者： yucco_chan 回答日時： 2021/11/11 16:16

Next Tの位置が異常。

上記を正常に修正すれば、DO Loopは不要。

この回答へのお礼

お二人の言う通りNextの位置が悪いのとDo loopが不要なのが原因でした。
ありがとうございました。

お礼日時：2021/11/16 23:45