Inserir texto na planilha em todas as linhas selecionadas no listview

[mpsouzaa 0]

Fala galera, to com uma dúvida que tá me fazendo coçar a cabeça. Talvez seja muito simples de resolver.

 

Eu fiz este código para que, ao selecionar uma linha na ListView1 ele adicione a palavra "PAGO" na linha selecionada na coluna "N" da planilha "DBPEDIDOS" e está funcionando certo, mas só funciona quando tenho apenas 1 linha selecionada.

For i = Listview1.ListItems.Count To 1 Step -1
    If Listview1.ListItems(i).Selected = True Then
    
        Dim ID As Variant
        ID = Listview1.ListItems.Item(i)
        
        Listview1.ListItems.Remove i
        Plan6.Range("A2").Select
        
        With Worksheets("DBPEDIDOS").Range("A:A")
            Set C = .Find(ID, LookIn:=xlValues, lookat:=xlPart)
            
            If Not C Is Nothing Then
                C.Activate
                ActiveCell.Offset(0, 13).Value = "PAGO"
            End If
        End With
    
    End If
Next i

O que eu quero fazer é que ele insira a palavra "PAGO" em todas as linhas caso eu selecione mais de uma na listview. Se alguém puder dar uma força agradeço demais.

[mpsouzaa 0]

Na verdade esse já funcionou, eu tinha escrito 130 ao invés de 13 no activecell, depois que postei que percebi.