menü oluşturma

[metintalat]

excel dosyasındaki sayfaların isimlerini menü oluşturarak görmek istiyorum.Yanlız bunu makro olarak yapıp butona bağlamak istiyorum.sayfa kapanınca kaybolsun.Bu konuda yardımcı olursanız sevinirim.

 

[nziya]

'LİSTBOXTA TÜM SAYFALARI GÃ?REBİLİR VE ÜZERİNE ÇİFT TIKLANDIÐINDA O SAYFAYA ULAÞIRSINIZ
Private Sub ListBox1_DblClick(ByVal Cancel As MSForms.ReturnBoolean)
Sheets(ListBox1.Text).Select
MsgBox (ListBox1.Text) & " " & "Sayfasındasınız"
End Sub
Private Sub UserForm_Initialize()
For x = 1 To Sheets.Count
ListBox1.AddItem Sheets(x).Name
Next
End Sub

 

[metintalat]

'LİSTBOXTA TÜM SAYFALARI GÃ?REBİLİR VE ÜZERİNE ÇİFT TIKLANDIÐINDA O SAYFAYA ULAÞIRSINIZ
Private Sub ListBox1_DblClick(ByVal Cancel As MSForms.ReturnBoolean)
Sheets(ListBox1.Text).Select
MsgBox (ListBox1.Text) & " " & "Sayfasındasınız"
End Sub
Private Sub UserForm_Initialize()
For x = 1 To Sheets.Count
ListBox1.AddItem Sheets(x).Name
Next
End Sub

Gönderdiğiniz kodu yazdım ama hata veriyor çalışmıyor.Kodda bir hatamı var veya benmi uygulayamadım.Eğer nasıl yapmam gerektiğini açıklarsanız sevinirim.