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