SaveAs method not working while saving workbook

[lgkartik]

https://drive.google.com/file/d/0B9uhATNT4QB2QkEwSEtrVjFpeHM/view?usp=sharing

Sub SaveIt()


Dim Fnc As String
Dim Coe As String
Dim Dt As String
Dim Path As String


Fnc = ThisWorkbook.Worksheets("COELeadInputs").Range("E4").Value
Coe = ThisWorkbook.Worksheets("COELeadInputs").Range("E5").Value
Dt = ThisWorkbook.Worksheets("COELeadInputs").Range("E6").Value


Path = "C:"
wbNam = Fnc & "_" & Coe & "_" & Format(Dt, "mmddyyyy") & ".xlsm"


' ActiveWorkbook.SaveAs FileName:=Path & wbNam, ConflictResolution:=xlLocalSessionChanges


ActiveWorkbook.SaveAs FileName:=Path & wbNam, FileFormat:=52


End Sub