1: 2:
ActiveWorkbook.SaveAs Filename:= _ ActiveWorkbook.Path & "\Working Files\4Recon\" & [AirlinePrefix] & " " & [Week] & "_ToBeReconciled.xls"