Private Sub CommandButton1_Click()
Dim Folder As String
Dim FileName As String
With Application.FileDialog(msoFileDialogFolderPicker)
.AllowMultiSelect = False
.Title = "Select Folder"
If .Show = True Then
Folder = .SelectedItems(1)
FileName = Dir(Folder & Application.PathSeparator & "*.xls*")
With ComboBox1
.Clear
Do While Len(FileName) > 0
.AddItem FileName
FileName = Dir
Loop
End With
End If
End With
End Sub
.AddItem Folder & Application.PathSeparator & FileName