copying files from external macro container

I have currently about 100 people who are assessed each quarter. The assessment form is 2 sheets and changes with each quarter.

Up until now I have used a macro:

  Application.DisplayAlerts = False
        ActiveWorkbook.SaveAs Filename:="P:\allen_vi_200901.xls", FileFormat:= _
        xlNormal, Password:="", WriteResPassword:="", ReadOnlyRecommended:=False _
        , CreateBackup:=False
    ActiveWorkbook.SaveAs Filename:="P:\amick_angela_200901.xls", FileFormat:= _
        xlNormal, Password:="", WriteResPassword:="", ReadOnlyRecommended:=False _
        , CreateBackup:=False
    ActiveWorkbook.SaveAs Filename:="P:\arteaga_christopher_200901.xls", FileFormat:= _
        xlNormal, Password:="", WriteResPassword:="", ReadOnlyRecommended:=False _
        , CreateBackup:=False

BUT THE PROBLEM IS THE MACRO IS ALSO RECORDED IN each replicated copy of the standard assessment. And if just one of those assessed people happen to figure out the macro call sequence...I'm up the creek. What I want to do is put the macro in another workbook (call it Macrocontainer.xls) and run the above macro from there. But when I do that the active workbook becomes "macrocontainer.xls". And I have 100 copies of that workbook and none of standard_2009.xls. Any help would be really appreciated!