Dim fn fn = Application.GetOpenFilename("Excel Files (*.xls), *.xls") If fn = False Then Exit Sub Else End If Workbooks.Open fn ScotiaFile = ActiveWorkbook.Name Application.DisplayAlerts = False}