MACRO to save file as MACRO enabled worksheet while filename will be pulled from a cell

[ghp2017]

Hello,
I have a macro created to save the file but for some reason .xlsm is being included in the actual name of the file. Can anyone figure out how I can prevent that from happening?
---------------------------------------------------------------------------------------------------------------------------------------------------------------
Sub SAVEAS()
'
' SAVEAS Macro
Dim save_as As Variant
Dim file_name As String


file_name = Sheets("Template").Range("D2")


' Get the file name.
save_as = Application.GetSaveAsFilename(file_name, _
FileFilter:="Excel Files,*.xlsm,All Files,*.*")
' See if the user canceled.
If save_as = False Then Exit Sub


' Save the file with the new name.
If LCase$(Right$(save_as, 4)) <> ".xlsm" Then
file_name = save_as & ".xlsm"
End If
ActiveWorkbook.SAVEAS Filename:=file_name
End Sub
----------------------------------------------------------------------------------------------------------------------------------------------------------------

 

[Fluff]

On this line

If LCase$(Right$(save_as, 4)) <> ".xlsm" Then

you are trying to check if the last 4 characters match a 5 character string & the answer will always be no.
Either change the 4 to a 5, or check xlsm (no .)

 

[ghp2017]

Thanks!!!

 

[Fluff]

You're welcome