Sub Demo()
Dim i As Long
With Application.FileDialog(msoFileDialogOpen)
  .AllowMultiSelect = True
  If .Show = -1 Then
    For i = 1 To .SelectedItems.Count
      'Do your prcessing here
      MsgBox .SelectedItems(i)
    Next
  End If
End With
End Sub