you are welcome.

so what you want is to enable the user only SELECT the folder. and all files in that folder get opened by procedure without selecting?

[vba]

Sub OpenMultipleFilesFromFolder()

Dim fPath As String, fName As String

With Application.FileDialog(msoFileDialogFolderPicker)
.InitialFileName = "" ' or specify a directory: "C:\Files\etc\etc"
.Title = "Select a Folder To Open File(s)"
.AllowMultiSelect = False
If .Show = -1 Then
fPath = .SelectedItems(1)
Else
MsgBox "Cancelled!"
End If
End With

fName = Dir(fPath & "\*.xls*")
Do While fName <> ""
Workbooks.Open Filename:=fPath & "\" & fName
fName = Dir
Loop

End Sub
[/vba]