verificar checked listview

[toninhocet 0]

Boa noite

Talves este topico ja esteja sido respondido mas minha duvida é a seguinte:

Tenho um Form vba excel com um ListView com CheckedBox

Preciso que quando selecionar um (ITEM) este seja copiado para outra planilha.

Meu Form esta copiando em sequencia e não o item selecionado.

Alguem pode me ajudar ?

Estes é o comando para copiar

---------------------------------------------------------------------------------------------------------------------------------------

Sub CopiaServicos()
Dim linha As Long
Dim linh As Long

lin = 2

linha = 2

Worksheets("Filtros").Select

For i = 1 To RelServicos.ListView2.ListItems.Count


If RelServicos.ListView2.ListItems.Item(i).Checked = True Then 'verifica se foi marcado o chekbox

Sheets("Filtros").Cells(linha, 1) = Sheets("Servicos").Cells(lin, 1)
Sheets("Filtros").Cells(linha, 2) = Sheets("Servicos").Cells(lin, 2)
Sheets("Filtros").Cells(linha, 3) = Sheets("Servicos").Cells(lin, 3)
Sheets("Filtros").Cells(linha, 4) = Sheets("Servicos").Cells(lin, 4)
Sheets("Filtros").Cells(linha, 5) = Sheets("Servicos").Cells(lin, 5)
Sheets("Filtros").Cells(linha, 6) = Sheets("Servicos").Cells(lin, 6)
Sheets("Filtros").Cells(linha, 7) = Sheets("Servicos").Cells(lin, 7)
Sheets("Filtros").Cells(linha, 8) = Sheets("Servicos").Cells(lin, 8)
Sheets("Filtros").Cells(linha, 9) = Sheets("Servicos").Cells(lin, 9)
Sheets("Filtros").Cells(linha, 10) = Sheets("Servicos").Cells(lin, 10)
Sheets("Filtros").Cells(linha, 11) = Sheets("Servicos").Cells(lin, 11)
Sheets("Filtros").Cells(linha, 12) = Sheets("Servicos").Cells(lin, 12)
Sheets("Filtros").Cells(linha, 13) = Sheets("Servicos").Cells(lin, 13)
Sheets("Filtros").Cells(linha, 14) = Sheets("Servicos").Cells(lin, 14)
Sheets("Filtros").Cells(linha, 15) = Sheets("Servicos").Cells(lin, 15)
linha = linha + 1
lin = lin + 1



End If
Next i
RelServicos.CmdImprimir.Enabled = True


End Sub

--------------------------------------------------------------------------------------

Agradeço o apoio.