Este fórum está sendo desativado

[georgedo]

Boa noite prezados colegas, sou novo no fórum.

Tenho um pequeno projeto de sistema e que está dando erros que não consigo resolver. No meu projeto quando abro o UserForm vem um formulário que contém uma Listview com os dados.

Eu quero que, quando efetuar dois cliques em um dos nomes da Listview, esse nome seja lançado em uma célula específica do excel.

Eu percebi que o erro aparece logo no início, em ".Value" do código. Acredito que minha Listview não admite a opção Value... Mas não sei como posso resolver.
Caso possam me ajudar ficarei grato demais.

Código:
' ****************************************************************************************
Private Sub lsLista_DblClick()

' O ERRO ESTÁ LOGO NESSA LINHA DE CÓDIGO AQUI DE BAIXO:

ActiveCell.Value = Me.lsLista.Value


If ActiveCell.Worksheet.Name = "AGENDA" Then
With Range("A" & ActiveCell.Row, "D" & ActiveCell.Offset(1, 0).Row)
.Interior.ColorIndex = 0
.Interior.Pattern = xlPatternLightHorizontal
.Interior.PatternColor = RGB(238, 236, 225)
.Font.Bold = True
.Font.ColorIndex = 48
.Borders.LineStyle = xlContinuous
.HorizontalAlignment = xlCenter
.VerticalAlignment = xlCenter
.WrapText = True
End With
With Range("E" & ActiveCell.Row, "E" & ActiveCell.Offset(1, 0).Row)
.Interior.ColorIndex = 35
.Borders.LineStyle = xlContinuous
.HorizontalAlignment = xlLeft
.VerticalAlignment = xlCenter
.WrapText = True
End With
Range("D" & ActiveCell.Row).NumberFormat = "[h]:mm:ss;@"
End If

Unload Me
End Sub

[georgedo]

Amigos, consegui resolver da seguinte forma:

Coloquei uma textbox que quando efetuo um só clique na Listview, o assunto selecionado aparece na textbox. Daí, alterei esse código anterior para o seguite:

ActiveCell.Value = Me.txtproduto.Value

Pronto, agora o texto da textbox vai para as células da planilha quando eu efetuo Dois Cliques...

PORÉM... Agora me surgiu o seguinte problema:

A textbox está lançando os dados sempre n célula "A1", não na célula que que ativei a UserForm

Alguém?