On Error Resume Next

Dim objExcel, objWorkbook
Dim sourcePath, destPath

sourcePath = "C:\Users\alexi\Documents\projects\freelance-dashboard\templates\FreelanceDashboard.xlsx"
destPath = "C:\Users\alexi\Documents\projects\freelance-dashboard\templates\FreelanceDashboard.xlsm"

Set objExcel = CreateObject("Excel.Application")
objExcel.DisplayAlerts = False
objExcel.Visible = False

Set objWorkbook = objExcel.Workbooks.Open(sourcePath)

' 52 = xlOpenXMLWorkbookMacroEnabled (.xlsm)
objWorkbook.SaveAs destPath, 52

objWorkbook.Close False
objExcel.Quit

Set objWorkbook = Nothing
Set objExcel = Nothing

If Err.Number = 0 Then
    WScript.Echo "SUCCESS: File converted to .xlsm"
Else
    WScript.Echo "ERROR: " & Err.Description
End If