I have the current code in place. When I run it it saves the file to a binary format which i do not want. If I change the file format to 52 or 53 to save as xlsx or xlsm and change the ext in code it errors saying it doesn't understand the format. If I remove that info completely it tries to perform the save and errors out stating I am trying to save a vba workbook in a non vba format. The code i am running is in my personal workbook and I am using it to rename a file that comes out of a software labeled as sheet1.xls. The code below names the file based on a cell value and saves it to a location on our drive. It was working with the exception of saving as a binary when I removed everything after Year(Date) on the ThisWorkbook line. Any help would be appreciated.

Sub SaveAsFileName()
     
    Dim FName           As String
    Dim FPath           As String
     
    FPath = "M:\FIN\Teams\Equity Accounting\Accounts Receivable Monitoring\Special Project - JZ\Nationals\Anchor-National monthly package"
    FName = Sheets("Sheet1").Range("L3").Text
    ThisWorkbook.SaveAs Filename:=FPath & "\" & FName & "\" & FName & " RB Comparison Report" & " " & Month(Date) & " " & Year(Date) & ".xlsm", FileFormat:=51, CreateBackup:=False
     
End Sub