hi,

with msoFileDialogOpen

[vba]
Sub OpenMultipleFiles()

Dim NumFiles As Long

With Application.FileDialog(msoFileDialogOpen)
.InitialFileName = "" ' or specify a directory: "C:\Files\etc\etc"
.Title = "Select File(s) To Open"
.Filters.Add "Excel Files", "*.xls*", 1
.AllowMultiSelect = True
If .Show = -1 Then
For NumFiles = 1 To .SelectedItems.Count
Workbooks.Open .SelectedItems(NumFiles)
Next NumFiles
Else
MsgBox "Cancelled!"
End If
End With

End Sub
[/vba]