Error al cargar datos de combobox a textbox desde otro formulario

[Macklainn]

HOLA A TODOS, Y DE ANTEMANO GRACIAS POR LA AYUDA QUE SIEMPRE NOS BRINDAN, TENGO UN FORMULARIO QUE TIENE VARIOS COMBOBOX, Y UN BOTON DE AGREGAR, PERO COMO ESTE FORMULARIO ES INDEPENDIENTE, LO QUE QUIERO ES CARGAR LOS DATOS DESDE OTRO COMO SE MUESTRA EN LA IMAGEN, PERO ME RESALTA UN ERROR, Y AGRADECERÍA QUE ALGUIEN PUEDA BRINDARME UNA SOLUCION, ESTE ES EL CODIGO QUE TENGO DENTRO DEL FORM,

Private Sub CmdAgregar_Click()

    If Trim(Me.txtcantidad.Text) = "" Then MsgBox ("DEBES INGRESAR LA CANTIDAD !!!"): Exit Sub

    If Me.CmbArticulo.Text = "" Then MsgBox ("DEBES INGRESAR UN ARTICULO !!"): Exit Sub

    With frmCentral

        .txtArticulo.AddItem (Me.CmbArticulo.Text)

        .Cantidad.AddItem (Me.txtcantidad.Text)

        .lstMotivo.AddItem (Me.CmbMotivo.Text)

    End With






End Sub



Private Sub cmdLimpiar_Click()

Me.CmbArticulo.Text = ""

Me.txtcantidad.Text = ""

Me.CmbMotivo.Text = ""

Me.CmbCondicion.Text = ""

Me.CmbArticulo.SetFocus





End Sub



Private Sub Image1_Click()



End Sub



Private Sub txtcantidad_KeyPress(ByVal KeyAscii As MSForms.ReturnInteger)

' esto es para que el textbox solo acepte numeros

    If KeyAscii < 48 Or KeyAscii > 57 Then

        KeyAscii = 0

    End If

End Sub



Private Sub UserForm_Activate()

Dim sultimacelda As String

    Me.CmbCondicion.Clear

    Sheets("ESTADO").Activate

    If Trim(Range("B2").Value) = "" Then Exit Sub

    If Trim(Range("B3").Value) = "" Then

        Me.CmbCondicion.AddItem (Range("A2").Value)

        Exit Sub

    End If

    sultimacelda = Range("B1").End(xlDown).Address

    For Each F In Range("B2:" & sultimacelda).Cells

        Me.CmbCondicion.AddItem (F.Value)

    Next

    Me.CmbMotivo.Clear

    Sheets("ESTADO").Activate

    If Trim(Range("A2").Value) = "" Then Exit Sub

    If Trim(Range("A3").Value) = "" Then

        Me.CmbMotivo.AddItem (Range("A2").Value)

        Exit Sub

    End If

    sultimacelda = Range("A1").End(xlDown).Address

    For Each F In Range("A2:" & sultimacelda).Cells

        Me.CmbMotivo.AddItem (F.Value)

    Next

    Me.CmbArticulo.Clear

    Sheets("ARTICULOS").Activate

    If Trim(Range("A2").Value) = "" Then Exit Sub

    If Trim(Range("A3").Value) = "" Then

        Me.CmbArticulo.AddItem (Range("A2").Value)

        Exit Sub

    End If

    sultimacelda = Range("A1").End(xlDown).Address

    For Each F In Range("A2:" & sultimacelda).Cells

        Me.CmbArticulo.AddItem (F.Value)

    Next

End Sub



[/CODE]

EL ERROR, SE MUESTRA EN LA IMAGEN POR FAVOR NECESITO LA AYUDA DE TODOS, GRACIAS A TODOS.