Get file names from a directory

I have a macro that contains a drop down box with a list of file names that are contained in a single directory. Currently, I store the file names in a separate sheet and have to manually enter a new filename if a new file is added. Is there a way I can code something to pull the names of the files in the 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

Hi, This adds the File names to a "Control Toobox", "Combobox":-

'Combobox addItem
Dim r As Integer, F As String, Directory As String
Directory = "C:\documents and settings\test\desktop\excel\"
r = 1
F = Dir(Directory) ', 7)
With ComboBox1
Do While F <> ""
.AddItem F
F = Dir()
Loop
End With
ComboBox1.ListIndex = 0
MsgBox "complete"

Regards Mick

Thanks, combined a little bit of both and it worked great!