Private Sub CommandButton1_Click()
    Dim xlamBook As Workbook
    Set xlamBook = Workbooks("Shapebook.xlam")
    xlamBook.Sheets("Start").Shapes.Range(Array("Форма Ё")).Select
    If Selection.Count = 0 Then
        MsgBox "Форма не найдена!"
    Else
        Selection.Copy
        ActiveWorkbook.Sheets.Add After:=ActiveSheet
        ActiveWorkbook.ActiveSheet.Range("C75").Select
        On Error Resume Next
        ActiveWorkbook.ActiveSheet.Paste
        If Err.Number <> 0 Then
            MsgBox "Ошибка при вставке формы: " & Err.Description
        Else
            MsgBox "Форма вставлена успешно!"
        End If
        On Error GoTo 0
    End If
End Sub

<Collection>
    <Subcollection ItemName="BOX">
        <Level1>
             <Item TypeName="Element">
             <Properties>
              <Color>Red</Color>
              <Name>Dog</Name>
              <Feed>Meat</Feed>
              <Offspring>Puppy</Offspring>
              </Properties>
              </Item>
             <Item TypeName="Element">
             <Properties>
              <Color>Black</Color>
              <Name>Shark</Name>
              <Feed>Fish</Feed>
              <Offspring>Caviar</Offspring>
              </Properties>
              </Item>
             <Item TypeName="Element">
             <Properties>
              <Color>Green</Color>
              <Name>Leaf</Name>
              <Feed>Water</Feed>
              <Offspring>Bud</Offspring>
              </Properties>
              </Item>
        </Level1>
    </Subcollection>
</Collection>

Private Sub CommandButton1_Click()
Dim WBADN As Workbook
Set WBADN = Workbooks("Надстройка.xlam")
WBADN.IsAddin = False
WBADN.Sheets("Лист заголовка").Range("Заголовок").Copy
WBADN.IsAddin = True
ActiveWorkbook.Sheets.Add After:=ActiveSheet
ActiveWorkbook.ActiveSheet.Paste
End Sub