VBA SaveAs Code failed

[Tahas]

Can somebody please help to identify what mistake am i committing? I'm using Excel 2010

Running macro gives me the message that...
Run time error 1004
Method 'SaveAs' of object' _workbook' failed

Here is how I set up the file format
If Val(Application.Version) < 12 Then
FileExtStr = ".xls": FileFormatNum = -4143
Else
FileExtStr = ".xlsm": FileFormatNum = 52
End If
Here is my code:
.SaveAs TempFilePath & TempFileName & FileExtStr, FileFormat:=FileFormatNum

 

[Jeffrey Mahoney]

You need to create a variable to store the workbook you want to save.

Dim TWB as workbook

set WB = thisworkbook
With WB
.SaveAs TempFilePath & TempFileName & FileExtStr, FileFormat:=FileFormatNum
end with

Without the With statement you could simply write it as
wb.SaveAs TempFilePath & TempFileName & FileExtStr, FileFormat:=FileFormatNum