I have written a Time Stamp Macro which is supposed to provide the date and time a document is printed

The Macro is written as following:

Sub Time_stamp()
'
' Time_stamp Macro
'

'
Application.Goto Reference:="Time_stamp"
ActiveCell.FormulaR1C1 = "test"
Range("A2").Select
ExecuteExcel4Macro "PRINT(1,,,1,,,,,,,,2,,,TRUE,,FALSE)"
ActiveWorkbook.Names.Add Name:="IQ_ADDIN", RefersToR1C1:="=""AUTO"""
Application.WindowState = xlMinimized
ActiveWorkbook.Names("IQ_ADDIN").Delete
ActiveWorkbook.Names.Add Name:="IQ_ADDIN", RefersToR1C1:="=""AUTO"""
ActiveWorkbook.SaveAs Filename:= _
"C:\Program Files\Microsoft Office\Office12\XLSTART\Book.xlt", FileFormat:= _
xlTemplate8, Password:="", WriteResPassword:="", ReadOnlyRecommended:= _
False, CreateBackup:=False
ExecuteExcel4Macro "PRINT(1,,,1,,,,,,,,2,,,TRUE,,FALSE)"
Range("A1").Select
Selection.ClearContents
Range("A2").Select
ActiveWorkbook.Names("IQ_ADDIN").Delete
ActiveWorkbook.Names.Add Name:="IQ_ADDIN", RefersToR1C1:="=""AUTO"""
ActiveWorkbook.Save
ActiveWorkbook.Names("IQ_ADDIN").Delete
ActiveWorkbook.Names.Add Name:="IQ_ADDIN", RefersToR1C1:="=""AUTO"""
End Sub
The Macro is saved to an xlt file and is located in the start up folder for my micro soft excel.

I believe the correct format of the marco should be

Private Sub Workbook_BeforeSave(ByVal SaveAsUI As Boolean, Cancel As Boolean)

ActiveSheet.PageSetup.RightFooter = Time

End Sub
which is how I originally wrote it, but it warped into the file you see above.

How can I correct this error?