Dim strFile As String strFile = Application.GetOpenFilename(FileFilter:="Excel files *.xlsx* (*.xlsx*)", Title:="Choose an Excel file to open", MultiSelect:=True)