ThisWorkbook.SaveAs "C:\temp.xls"
ActiveWorkbook.Worksheets( 1 ).Delete

Sheets(arrItem()).Move

Option Explicit
Sub CopyUserForm()
    Dim VBP As VBIDE.VBProject, VBP2 As VBIDE.VBProject ' в референс подключить "Microsoft Visual Basic for Applications Extensibility"
    Dim vbContt As VBIDE.VBComponent
    Dim i As Long, ufName As String
    ufName = "UserForm4"

    On Error Resume Next
    Set VBP = Workbooks("Книга1.xls").VBProject
    If Err <>  0  Then Exit Sub
    Set VBP2 = Workbooks("Книга2.xls").VBProject
    If Err <>  0  Then Exit Sub
    Set vbContt = VBP.VBComponents(ufName)
    If Err <>  0  Then Exit Sub
    '   Проверка уникальности имени
    For i =  1  To VBP2.VBComponents.Count
        If VBP.VBComponents(i).Name = ufName Then
            Set vbContt = Nothing
            Set VBP = Nothing
            Set VBP2 = Nothing
            Exit Sub
        End If
    Next
    vbContt.Export "C:\temp.bas"
    VBP2.VBComponents.Import "C:\temp.bas"
    Kill "C:\temp.bas"
    Set vbContt = Nothing
    Set VBP = Nothing
    Set VBP2 = Nothing

End Sub

If VBP.VBComponents(i).Name = ufName Then

If VBP2.VBComponents(i).Name = ufName Then

Option Explicit
Sub CopyUserForm()
    Dim VBP1 As Object, VBP2 As Object
    Dim vbContt As Object
    Dim i As Long, ufName As String
    ufName = "UserForm1"
    On Error Resume Next
    Set VBP1 = Workbooks("Книга1.xls").VBProject
    If Err <>  0  Then Exit Sub
    Set VBP2 = Workbooks("Книга2.xls").VBProject
    If Err <>  0  Then Exit Sub
    Set vbContt = VBP1.VBComponents(ufName)
    If Err <>  0  Then Exit Sub
    For i =  1  To VBP2.VBComponents.Count
        If VBP2.VBComponents(i).Name = ufName Then VBP2.VBComponents.Remove VBP2.VBComponents(i)
    Next
    vbContt.Export "C:\temp.bas"
    VBP2.VBComponents.Import "C:\temp.bas"
    Kill "C:\temp.bas"
    Set vbContt = Nothing
    Set VBP1 = Nothing
    Set VBP2 = Nothing
End Sub