Save as xlsm file with specific name & specific folder

Hi all,

I have this save as pdf code that can "save as" in specific
folder with specific name :

Private Sub CommandButton3_Click()
' Sub Make_PDF
' Create and save .pdf
Dim pdfName As String, FolderName As String, FullName As String
pdfName = Range("BI21").Text
FolderName = Range("BI22").Text
FullName = ActiveWorkbook.Path & "\" & FolderName & "\" & pdfName & ".pdf"
If MsgBox("Confirm filename " & FullName & " is correct", vbYesNo + vbQuestion) = vbNo Then Exit Sub
ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, Filename:=FullName _
, Quality:=xlQualityMinimum, IncludeDocProperties:=False, _
IgnorePrintAreas:=False, OpenAfterPublish:=True
End Sub

I try the same code to apply for "xlsm file", but failed :

Sub save_as_xlsm()
'
' save_as_xlsm Macro
'

'
Dim xlsmName As String, FolderName As String, FullName As String
xlsmName = Range("BI21").Text
FolderName = Range("BI22").Text
FullName = ActiveWorkbook.Path & "\" & FolderName & "\" & xlsmName & ".xlsm"
If MsgBox("Confirm filename " & FullName & " is correct", vbYesNo + vbQuestion) = vbNo Then Exit Sub
    ActiveWorkbookPath.SaveAs Filename:=FullName, _
        FileFormat:=xlOpenXMLWorkbookMacroEnabled, CreateBackup:=False

End Sub

Can anyone assist me? Thank you in advance

Try changing

ActiveWorkbookPath.SaveAs Filename:=FullName, _
        FileFormat:=xlOpenXMLWorkbookMacroEnabled, CreateBackup:=False

to

ActiveWorkbook.SaveAs Filename:=FullName, _
        FileFormat:=xlOpenXMLWorkbookMacroEnabled, CreateBackup:=False

Alf

Thank you so much, it's working

You are welcome.

Thanks for feedback and rep.

Alf