指定ホルダー内のファイル名取得したい。

＜コード＞

Sub ファイル一覧()

Path = Cells(1, 1) & "\"

Filename = Dir(Path & "*", vbNormal)
Cells(3, 1).Select ' A3以降に検索結果貼り付け
ActiveCell = Filename 

'ファイル内のbookがなくなるまで
Do While Filename <> ""
ActiveCell.Offset(1, 0).Select
Filename = Dir() 
ActiveCell = Filename
Loop

End Sub 

＜サンプル結果＞