Inserir texto na planilha em todas as linhas selecionadas no listview

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

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.