Using ProjectAfterSave

[Tyler]

Hi all,
I have the following macro and it works great, but I would like it to happen
automatically every time a project is saved. Can someone help me?!
Thanks,
Tyler

Sub Save_To_HTML()

' Macro Save_To_HTML
' Macro Recorded Wed 4/27/05 by Tyler Johnston.

MapEdit Name:="Map 2", Create:=True, OverwriteExisting:=True,
DataCategory:=0, CategoryEnabled:=True, TableName:="Tasks", FieldName:="ID",
ExternalFieldName:="ID", ExportFilter:="All Tasks", ImportMethod:=0,
HeaderRow:=True, AssignmentData:=False, TextDelimiter:=Chr$(9),
TextFileOrigin:=0, UseHtmlTemplate:=True, TemplateFile:="\\path\Columns
Navy.html", IncludeImage:=False
MapEdit Name:="Map 2", DataCategory:=0, FieldName:="Name",
ExternalFieldName:="Task Name"
MapEdit Name:="Map 2", DataCategory:=0, FieldName:="Duration",
ExternalFieldName:="Duration"
MapEdit Name:="Map 2", DataCategory:=0, FieldName:="Start",
ExternalFieldName:="Start"
MapEdit Name:="Map 2", DataCategory:=0, FieldName:="Finish",
ExternalFieldName:="Finish"
MapEdit Name:="Map 2", DataCategory:=0, FieldName:="Resource Names",
ExternalFieldName:="Resource Names"
MapEdit Name:="Map 2", DataCategory:=0, FieldName:="% Complete",
ExternalFieldName:="% Complete"
MapEdit Name:="Map 2", DataCategory:=1, CategoryEnabled:=True,
TableName:="Resources", FieldName:="ID", ExternalFieldName:="ID",
ExportFilter:="All Resources", ImportMethod:=0
MapEdit Name:="Map 2", DataCategory:=1, FieldName:="Name",
ExternalFieldName:="Name"
MapEdit Name:="Map 2", DataCategory:=1, FieldName:="Group",
ExternalFieldName:="Group"
MapEdit Name:="Map 2", DataCategory:=1, FieldName:="Max Units",
ExternalFieldName:="Max Units"
MapEdit Name:="Map 2", DataCategory:=1, FieldName:="Peak",
ExternalFieldName:="Peak Units"
MapEdit Name:="Map 2", DataCategory:=2, CategoryEnabled:=True,
TableName:="Assignments", FieldName:="Task ID", ExternalFieldName:="Task ID",
ImportMethod:=0
MapEdit Name:="Map 2", DataCategory:=2, FieldName:="Task Name",
ExternalFieldName:="Task Name"
MapEdit Name:="Map 2", DataCategory:=2, FieldName:="Resource Name",
ExternalFieldName:="Resource Name"
MapEdit Name:="Map 2", DataCategory:=2, FieldName:="Work",
ExternalFieldName:="Work"
MapEdit Name:="Map 2", DataCategory:=2, FieldName:="Start",
ExternalFieldName:="Start"
MapEdit Name:="Map 2", DataCategory:=2, FieldName:="Finish",
ExternalFieldName:="Finish"
MapEdit Name:="Map 2", DataCategory:=2, FieldName:="% Work Complete",
ExternalFieldName:="% Work Complete"
FileSaveAs Name:="\\path\" & ActiveProject.Author,
FormatID:="MSProject.html", map:="Map 2"

End Sub