Thread: List Selected Files

I am trying to use Application.GetOpenFilename to search for a several (.jpg) files and list the file paths on a worksheet. I found this on another post that works wonderful if only one file is chosen.

Sub findfile()

Dim FLName As String

FLName = Application.GetOpenFilename
Range("a1").Value = FLName
End Sub

I would like to make multiple file selections and list them in a worksheet row. Can anybody please help?

Thank you,
Frank

This will keep looping until you Cancel.

Sub ListFile()
Dim FLName As String

Do
    FLName = Application.GetOpenFilename
    If FLName = "False" Then Exit Sub
    Range("A" & Rows.Count).End(xlUp).Offset(1, 0).Value = FLName
Loop

End Sub