Get file names from a directory

Sub getfiles()
Dim mypath As String, myname As String
mypath = "c:\data"
myname = Dir(mypath & "\*.xls")
Do While myname <> ""
'show every file in a messagebox
'or change to suit your needs
    MsgBox myname
    myname = Dir
Loop
End Sub

Charlize