Select Multiple Files

Dim f As Object 'FileDialog  
Set f = Application.FileDialog(3) 'msoFileDialogFilePicker  
With f 
'  .AllowMultiSelect = True 'default
   .InitialFileName = "C:\Temp\" 
'   Specify filters
'  .Filters.Clear
'  .Filters.Add "All Files", "*.*"
   .Show 
   Dim varFile As Variant 
   For Each varFile In .SelectedItems 
      MsgBox Trim(varFile) 
   Next 
End With