How to save workbook

Sub Save_WorkBook()
   
                ActiveWorkbook.Save

End Sub

_______________________________________________________________________

Sub Save_WorkBook()

                ActiveWorkbook.SaveAs Environ("Userprofile") & "\desktop\test.xlsm"

End Sub