Sub OpenDialog() Dim dlgOpen As FileDialog Set dlgOpen = Application.FileDialog( _ DialogType:=msoFileDialogOpen) With dlgOpen .AllowMultiSelect = True .Show End With msgBox dlgOpen.SelectedItems(1) End Sub