Create a new workbook with a new name and save to desktop

Hello -

I have a .xlsm workbook that I want to treat as a template. That is, I want to keep this workbook pristine so it can be accessed over and over again. I want it to function as follows:

1) Whenever a user opens the workbook he/she will immediately be prompted to enter a new 'file name' (let's says this will be a group or organization name) via an inputbox.

2) Upon clicking ok in the inputbox window, the workbook will be saved to the desktop as a separate file, with the 'new file name' and as the same file type (i.e., .xlsm).

3) The original "template" workbook should be automatically closed.


The problem I'm having is two-fold:

Problem #1: When I run my macro it saves a file to my desktop but with the name...'FileName', not the name I input.

Problem #2: I want this macro to be removed or disabled in the new workbook when it is created.

Below is what I have so far. A sample of my workbook is also attached.

Private Sub Workbook_Open()

Dim FileName As String
FileName = InputBox("What is the name of this group or event?")
 
    ChDir "C:\Users\Tom\Desktop"
    ActiveWorkbook.SaveAs FileName:="C:\Users\Tom\Desktop\FileName.xlsm", _
        FileFormat:=xlOpenXMLWorkbookMacroEnabled, CreateBackup:=False
End Sub