How To - Run VBA Macro Automaticall When Opening Template

[bepedicino]

I have a Excel Template which contains the below macro. How can I run the macro automatically when I open the template file?

----------------------------
Sub PrepSpreadsheet()

Const Ffold As String = "D\Documents\file" 'change as required
Dim Fname As String

Fname = "Product Classification"
Fname = Fname & " - " & Format(Date, "yyyymmdd") & ".xlsm"

Application.DisplayAlerts = False

ActiveWorkbook.SaveAs _
Filename:=Ffold & Application.PathSeparator & Fname, _
FileFormat:=xlOpenXMLWorkbookMacroEnabled

Application.DisplayAlerts = True

End Sub

 

[JLGWhiz]

1. Open your template
2. Right click the sheet name tab
3. Click 'View Code' in th pop up menu.
4. Copy this code and paste it into the code pane of the VB editor.
4. Close the VB editor
5. Save the workbook as macro enabled .xlsm
Now when you open the template, the code will automatically run.

Private Sub Worksheet_Activate()
 Const Ffold As String = "D\Documents\file" 'change as required
 Dim Fname As String
 Fname = "Product Classification"
 Fname = Fname & " - " & Format(Date, "yyyymmdd") & ".xlsm"
 Application.DisplayAlerts = False
 ActiveWorkbook.SaveAs _
 Filename:=Ffold & Application.PathSeparator & Fname, _
 FileFormat:=xlOpenXMLWorkbookMacroEnabled
 Application.DisplayAlerts = True
End Sub

 

[bepedicino]

When I attempt to run the code I am getting a Run-Time error '104': Application or object-define error message. I am not sure if this is related to the saving of the file that I need to do.

In step 5 I am being instructed to save the workbooks a .xlsm fie. For clarification, do I need to save my template file as a "blank" .xlsm file? I so, does it need to be in the same location as the file being saved by the macro, or do I save it in the same location as my .xltm file in order for it to work?

Once the macro is functional I should be able to run it via the .xltm file, is that correct?