XferMacro$ = InputBox("Enter the name of a Sample.dot macro to transfer to Test.dot")
    Application.OrganizerCopy Source:="I:\COMMON\MACROS\MACLIB97\SAMPLE.DOT", _
        Destination:="C:\97_WORD\TESTHOLD\TEST.DOT", _
        Name:=XferMacro$, Object:=wdOrganizerObjectProjectItems