Userform içerisine sayfa adları listelemek

[canercan02]

Merhaba arkadaşlar,
ekteki excel sayfasına eklediğim userform içerisine kitaptaki sayfa adlarını listelemek istiyorum.

sayfa1
sayfa2
sayfa3

kaç tane sayfa olursa listelensin istiyorum.

yardımcı olursanız sevinirim.

 

[dEdE]

Merhaba,
Userformun kod bölümüne kopyalayıp dener misiniz?

Private Sub UserForm_Initialize()
    For x = 1 To Sheets.Count
        ComboBox1.AddItem Sheets(x).Name
    Next
End Sub

 

[sbayyigit]

teşekkürler usta. işimi gördü.

 

[Orion1]

Alternatif.

Private Sub UserForm_Initialize()
Dim sh As Worksheet
For Each sh In Worksheets
    ComboBox1.AddItem sh.Name
Next
End Sub