ListView'de sayfa isimlerini listeleme

[unforgivenn]

Merhabalar, userformumdaki listview'de sayfa içeriği değilde kitaptaki sayfa isimlerini listelemek istiyorum yardımlarınızı bekliyorum.

 

[Orion1]

Buyurun.

Private Sub UserForm_Initialize()
Dim sh As Worksheet
Me.Caption = "evrengizlen@hotmail.com"
ListView1.View = lvwReport
ListView1.Gridlines = True
ListView1.ColumnHeaders.Add , , "SAYFA İSİMLERİ"
For Each sh In Worksheets
    ListView1.ListItems.Add = sh.Name
Next
End Sub

 

[unforgivenn]

Teşekkürler tamamdır