Erro 404 - O objeto é obrigatório

[Snaylson]

Bom dia! 

Estou tendo dificuldade em executar esse código, ele nem abre o formulário quando coloco pra abrir, já mostra o erro. Poderiam me ajudar? não estou conseguindo identificar onde está.

Private Sub Entrada_Click()

If Caixa_Item.Value = "" Then
    MsgBox ("Prencha o campo item!")
    Exit Sub
End If

If Cx_Qtd.Value = "" Then
    MsgBox ("Preencha o campo Quantidade!")
    Exit Sub
End If

If Cx_Desc.Value = "" Then
    MsgBox ("Preencha o campo Descrição!")
    Exit Sub
End If

If Cx_Sub.Value = "" Then
    MsgBox ("Preencha o campo Subinventário!")
    Exit Sub
End If

If Cx_Req.Value = "" Then
    MsgBox ("Preencha o campo Requisição!")
    Exit Sub
End If

If Cx_Ende.Value = "" Then
    MsgBox ("Preencha o campo Endereço!")
    Exit Sub
End If

linha = Sheets("Movimentos").Range("A100000").End(xlUp).Row + 1
Sheets("Movimentos").Cells(linha, 0).Value = WorksheetFunction.Max(Sheets("Movimentos").Range("A:A")) + 1
Sheets("Movimentos").Cells(linha, 2).Value = Caixa_Item.Value
Sheets("Movimentos").Cells(linha, 5).Value = Cx_Qtd.Value + 0
Sheets("Movimentos").Cells(linha, 4).Value = Cx_Sub.Value
Sheets("Movimentos").Cells(linha, 3).Value = Cx_Desc.Value
Sheets("Movimentos").Cells(linha, 6).Value = Cx_Req.Value
Sheets("Movimentos").Cells(linha, 1).Value = Cx_Ende.Value

Caixa_Item.Value = ""
Cx_Qtd.Value = ""
Cx_Sub.Value = ""
Cx_Req.Value = ""
Cx_Ende.Value = ""
Cx_Desc.Value = ""
Cx_Data.Value = ""

MsgBox ("Item Enviado com Sucesso!")

Call Atualiza_Caixa_Listagem_Movimentações

End Sub

[Alyson Ronnan Martins]

Boa tarde.

Já tentou executar seu código em modo de "debug", você pode verificar em que momento ele dar o erro 404.

 

Dessa maneira você vai apertando F8 para ir acompanhando o seu código que foi executado.