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