VBA to Save File

Hello,

I have a file that I use as a template called "..2018.Week nn (Device) .. CCI".
On a weekly basis, I copy the results from a report into this file and re-name to the correct week number.

I have a macro setup as a button on my ribbon that I run that checks to see if the file has been saved since being opened and if not prompts to be saved;

If ActiveWorkbook.Saved = False Then
    fName = Application.GetSaveAsFilename(, "Excel Macro-Enabled Workbook (*.xlsm), *.xlsm")
        If fName = "False" Then
            MsgBox "File not saved, exiting function", vbOKOnly
            Cancel = True
            Exit Sub
        End If
End If

The first section works fine, it prompts me to save the file but when I click 'save' it saves it as the original file name. When I check the location I have saved the file to, the new file doesn't exist as if it doesn't recognise the save command.

I have created a small test file and attached. Thanks in advance.