I have the following code for a save as macro.
Sub SAVE_EVAL()
Application.ScreenUpdating = False
Dim FSName As String
' File name in this cell is a formula that includes .xlsm at the end of the string
FSName = Sheets("Intro Page").Range("DP6").Value
ActiveWorkbook.SaveAs...