Boa tarde!

Como posso colocar "PAGO" , na planilha, em todos as linhas selecionadas de um listview?

Na planilha cada linha tem seu código "ID" então quando seleciono UM item do listiview ele joga o valor desse ID para um textbox,
vou usar o valor informado no textbox como referencia pra colocar "PAGO" na linha correta do item que foi selecionado no listview.
até ai tudo certo

Agora, se eu preciso usar o multiselect não tenho como fazer essa função.. alguém pode ajudar?

a rotina que uso para atribuir o ID ao textbox

Private Sub ListView1_click()

If ListView1.ListItems.Count <= 0 Then
  Exit Sub
 End If
  
 txtID = ListView1.SelectedItem.ListSubItems(4).Text

End Sub

Rotina para colocar "PAGO" na planilha do item selecionado
Está atribuía a um botão (click)

ActiveWorkbook.Sheets("Entradas").Activate

linha = 2
Sheets("Agenda").Select
Do Until Sheets("Agenda").Cells(linha, 1) = ""

If Sheets("Agenda").Cells(linha, 2) = txtID Then

   Sheets("Agenda").Cells(linha, 2).Select
   
   ActiveCell.Offset(0, 8).Select
   ActiveCell = "PAGO"

   End If

   
   linha = linha + 1
   
   Loop

Obrigado desde ja