Sub SaveFile() ActiveWorkbook.SaveAs ("c:\MarketActions\Egypt\" _ & Format(Now(), "YYYYMMDDHHMM") & ".xlsm") End Sub