почему шоу компиляции ошибка не может найти проект VBA?

Question

Мне нужна помощь в настройке моего кода (перенесите данные из пользовательской формы в рабочую таблицу
, это показывает, что при компиляции ошибки не удается найти библиотеку проекта, и сидите с этим словом "trim"

Private Sub ButtonNew_Click()
    Dim Ad As String
    Dim c As Integer
    Dim xx As Long
    ''''''''''''''''''''
    For c = 1 To ContColmn
        Ad = Cells(1, c).Address(0, 0)
        If Len(Trim(Me.Controls(Ad).Value)) = 0 Then
           MsgBox "address: " & Me.Controls("xx" & c).Caption & " empty", vbCritical + vbMsgBoxRight + vbMsgBoxRtlReading, "empty cell"
           Me.Controls(Ad).SetFocus
            Exit Sub
      End If
    Next
    ''''''''''''''''''''''
    Application.ScreenUpdating = False
    Application.Calculation = xlCalculationManual
    With Sheet2
        Lr = .Cells(.Rows.Count, "A").End(xlUp).Row + 1
        For c = 1 To ContColmn
            Ad = Cells(1, c).Address(0, 0)
            .Cells(Lr, c).Value = Me.Controls(Ad).Value
        Next
    End With
    Application.ScreenUpdating = True
    Application.Calculation = xlCalculationAutomatic
    A1.Value = Application.WorksheetFunction.Max(Sheets(2).Range("A2:A5000")) + 1
    MsgBox "ok"
    End Sub