Boa tarde!

Srs, Por favor, solicito ajuda, pois, não estou conseguindo excluir um item (linha da Planilha exibida na ListBox), segue:

Private Sub btnBuscar_Click()
 Dim rng As Range
    
    With ThisWorkbook.Worksheets("ACESSO")
        Set rng = .Range("A1:S200")
        Me.ListBoxFil.ColumnCount = rng.Columns.Count
        Me.ListBoxFil.RowSource = rng.Address(, , , True, rng.Parent.Range("A1"))
    End With
End Sub

Private Sub btnExcluir_Click()
If i >= ListBoxFil.ListCount Then
'Exit Sub
For i = 0 To ListBoxFil.ListCount
    If ListBoxFil.Selected(i) = True Then
       ListBoxFil.RemoveItem (i)
        i = i - 1
    End If
        Next i
End If
        End Sub

Obrigado!