Listboxa veri aktarım

[osmanfenerli1907]

İİ günler
Ben listbox1 e a1:a15 ten veri aktarıyorum.Bu verileri alta alta sıralıyor listbox1 de bu verilerin önüne bir şey yazabilir miyiz.Örneğin a1 hücresi litboxa aktarılırken "adı"-"a1" diye aktarılsın.Bu mümkün müdür?
kolay gelsin

 

[zafer]

Merhaba

Private Sub UserForm_Initialize()
son = Sheets("sayfa2").Cells(65536, 1).End(xlUp).Row
For i = 1 To son
ad = "adı- " & Cells(i, 1)
ListBox1.AddItem ad
Next
End Sub

 

[osmanfenerli1907]

Teşekkür ediyorum sy zafer.