Saving with VBA

I am trying to just have this save a file with a given name. I keep getting a "Method 'SaveAs' of object'_Workbook' failed error". If I change ".xlsm" to ".xls" it will save in the right path but as soon as I add the m I get an error. Any thoughts?

Sub save()


Dim path As String
Dim filename As String
Dim d As String
Dim b As String
Dim f As String
Dim a As String
Dim iyear As String








iyear = Year(Date)
d = DateAdd("m", -1, Now)
b = Month(d)
f = MonthName(b)
a = Format(d, "mm") & ". " & f & " " & iyear
filename = "RFM" & f & " " & iyear & ".xlsm"




   ActiveWorkbook.SaveAs filename:="\\office\Group11\T&A\Data Specialist\RFT REPORT\Source Reports\" & iyear & "\" & a & "\" & filename, _
   FileFormat:=xlOpenXMLWorkbookMacroEnabled, Password:="", WriteResPassword:="", _
   ReadOnlyRecommended:=False, CreateBackup:=False


End Sub

Re: Saving with VBA

I tried this but am still getting the same error. It works however if I change to .xls. I do not understand why .xlsm will not work.

Re: Saving with VBA

I have done this and the path is correct. I literally just change xlsm to xls and it saves fine. As soon as I add the xlsm is when it fails. i have scoured forums to no avail. I have no idea what would cause this.