Private Sub cmdList_Click()
Dim intCounter As Integer
With Application.FileSearch
.LookIn = CurDir
.FileName = "*.xls"
.Execute
For intCounter = 1 To .FoundFiles.Count
lstFiles.AddItem .FoundFiles(intCounter)
Next
End With
End Sub