Bom dia a Todos,

Tenho o seguinte código que faz a exclusão na Listview e na planilha conforme a seleção da linha desejada na Listview:

Private Sub btExcluir_Click()

    ultimaLinha = Plan30.Cells(Plan30.Cells.Rows.Count, "b").End(xlUp).Row + 1
    For i = 2 To ultimaLinha
            If txtCodHistorico2 = Plan30.Cells(i, 2) Then
        
            Plan30.Cells(i, 2).EntireRow.Delete
            
            Exit For
        End If
    Next
    
    For i = 1 To Listview1.ListItems.Count
    
        If Listview1.ListItems.Item(i) = txtCodHistorico2 Then
           Listview1.ListItems.Remove Listview1.ListItems(i).Index
            
            MsgBox ("Excluído com Sucesso")
            
            Exit For
        End If
    Next

End Sub

Bem, não estou conseguindo fazer com que a Exclusão se faça por como base, a coluna (E) e não pela coluna (B)
Os amigos podem me ajudar a solucionar isso??
Obrigado desde já!