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