Sub selected() Dim si As FileDialogSelectedItems Set si = Application.FileDialog(msoFileDialogOpen).SelectedItems End Sub