Sub LoadExcelFile() Dim result result = Application.GetOpenFilename("Excel files,*.xl?", 1) If result = False Then Exit Sub Workbooks.Open result End Sub