Use the SelectedItems property of the FileDialog object to return the FileDialogSelectedItems collection.
Sub selected() Dim si As FileDialogSelectedItems Set si = Application.FileDialog(msoFileDialogOpen).SelectedItems End Sub