sayfa ismleri menusu oluşturma

[ASMET67]

Selamlar.

Manuel_Nakliye_Menu menusu nün altına aşağıdaki kod ile sayfa isimleri olan alt menu oluşturdum.
Şimdi bu alt menuden hangi sayfa ismine tıklarsam osayfanın gösterilmesini nasıl sayfalarım.
Teşekkürler.

Kod:Set AltMenu = Manuel_Nakliye_Menu.Controls.Add(msoControlPopup, 1, , , True)
AltMenu.Caption = "Sayfalar"


'....Sayfalar
no = 71
For Each sayfa In Worksheets

With AltMenu.Controls.Add(msoControlButton, 1, , , True)
.Caption = sayfa.Name
.OnAction = "Sayfa_Goster"
.Style = msoButtonIconAndCaption
.FaceId = no
.State = msoButtonUp

End With
no = no + 1
Next

 

[Levent Menteşoğlu]

Aşağıdaki linkte bulunan 11.mesajdaki dosyayı inceleyin.

Açılır Kutudan Başka Sayfaya Yönlendirme ?

 

[ASMET67]

Teşşekürler.
Levent hocam tam istediğim çözüm yolu buydu . Ellerinize sağlık.