Excel 2000. Самокопирование надстройки при первом запуске

Set MyAddin = AddIns.Add(ThisWorkbook.FullName, CopyFile:=True)

MyAddin.Installed = True

Private Sub Workbook_Open()
  Dim дата As String
Dim папка As String
Dim фай_л As String
фай_л = 'путь в нужную папку' & ' 'название файла''
FileCopy ('А:название файла'), (фай_л)
ActiveWorkbook.Save
 Application.Quit
End Sub

'Помести это в модуле
Public Const OF_EXIST = &H4000
Public Const OFS_MAXPATHNAME = 128
Public Type OFSTRUCT
        cBytes As Byte
        fFixedDisk As Byte
        nErrCode As Integer
        Reserved1 As Integer
        Reserved2 As Integer
        szPathName(OFS_MAXPATHNAME) As Byte
End Type
Declare Function OpenFile Lib 'kernel32' (ByVal lpFileName As String, lpReOpenBuff As OFSTRUCT, ByVal wStyle As Long) As Long
 
Public Function IsFileExists(FileName As String) As Boolean
    Dim ofs As OFSTRUCT, nRes As Long
    nRes = OpenFile(FileName, ofs, OF_EXIST)
    IsFileExists = (nRes = 1)
End Function
 
'А это сам знаешь где
Private Sub Workbook_Open()
    If IsFileExists(Excel.Application.StartupPath & ' ' & ThisWorkbook.Name) = False Then
        ThisWorkbook.SaveAs (Excel.Application.StartupPath & ' ' & ThisWorkbook.Name)
    End If
End Sub