Saving file to its current location and current file name with current date and "FINAL"

Hi, ironwill20,

*.xlsx will not support macros. It could be done like

With ActiveWorkbook
  .SaveAs .Path & "\" & Left(.Name, Len(.Name) - 5) & Format(Date, "_yyyymmdd") & "_FINAL", FileFormat:=51
End With

Ciao,
Holger