Pessoal,

Boa noite.

Já pesquisei no fórum e inúmeras páginas para tentar solucionar um erro no código que coloquei para apagar uma determinada linha da planilha e também retirar a linha correspondente na listbox porém está dando erro.

O engraçado é que copiei esse mesmo código, de uma outra listbox da planilha, porém só alterei o nome da listbox.

Ele funciona até a exclusão da linha correspondente na planilha porém no momento do .RemoveItem, para tirar a linha da listbox, apresenta "Erro em Tempo de Execução" ... "Erro não Especificado".

Mando depurar e ele mostra, em amarelo: ListBoxPesquisaRecebimento1.RemoveItem (ListBoxPesquisaRecebimento1.ListIndex)

Dim iltbox, itens, xID, c, Resp
Private Sub btnExcluirRecebimento_Click()

itens = Me.ListBoxPesquisaRecebimento1.ListCount

For iltbox = 0 To itens - 1
    If Me.ListBoxPesquisaRecebimento1.Selected(iltbox) Then
        xID = Me.ListBoxPesquisaRecebimento1.List(iltbox)
    End If
    
Next iltbox

With Worksheets("Recebimento").Range("C:C")

    Set c = .Find(xID, LookIn:=xlValues, Lookat:=xlPart)
    
If Not c Is Nothing Then

c.Activate

Resp = MsgBox("Confirmar a Exclusão do Registro?", vbYesNo, "Confirmar")

If Resp = vbYes Then
c.Select
Selection.EntireRow.Delete
ListBoxPesquisaRecebimento1.RemoveItem (ListBoxPesquisaRecebimento1.ListIndex)

MsgBox "Registro Excluído!", vbInformation, "Excluir"

Else
MsgBox "Registro não Excluído!", vbInformation, "Aviso"

End If

End If

End With
End Sub

Alguém consegue me dar uma luz por favor???