sayfa seç makrosundaki bazı sayfaları seçmemek!

[aydgur]

Günaydın !
Sub SAYFA_SEÇ()
Dim Sayfa_Adı As String
Sayfa_Adı = CommandBars.ActionControl.Caption
Sheets(Sayfa_Adı).Select
[A1].Select
End Sub

Sub MENÜ_EKLE()
On Error Resume Next
Dim Sayfa As Worksheet
For Each Yeni_Menü In MenuBars(xlWorksheet).Menus
If Yeni_Menü.Caption = "KLEOPATRA" Then
Yeni_Menü.Delete
End If
Next
Workbooks(ThisWorkbook.Name).Sheets("Menu").Activate
MenuBars(xlWorksheet).Menus.Add Caption:="KLEOPATRA", Before:=100
For Each Sayfa In Worksheets
MenuBars(xlWorksheet).Menus("KLEOPATRA").MenuItems.Add _
Caption:=Sayfa.Name, OnAction:="SAYFA_SEÇ"
Next
End Sub
Değerli bir katılımcının yukarıdaki kodlarını uyguladım,fakat sayfa_seç makrosunda "aktar","alacak"."borç"."ürün" isimli sayfaları seçmesin onun yerine başka makroları çalıştırayım istiyorum.Yani "aktar"adında bir sayfam var menüden aktar'ı tıkladığımda o sayfayı seçip gitmesini değil "aktar" adında başka bir makroyu işletsin sitiyorum.bunun için sayfa_seç makrosuna bir ek yaparak sözkonusu sayfaları seçmesinde başka makro çalıştırsın.Uzun ama böyle ifade edebildim.

 

[aydgur]

Arkadaşlar sanırım tam anlatamadım.sayfa seç makrosunda menüde bazı sayfalar gözükmesin istiyorum.

 

[aydgur]

menü de bütün sayfaları göstermemek

Sub MENÜ_EKLE()
On Error Resume Next
Dim Sayfa As Worksheet
For Each Yeni_Menü In MenuBars(xlWorksheet).Menus
If Yeni_Menü.Caption = "KLEOPATRA" Then
Yeni_Menü.Delete
End If
Next
Workbooks(ThisWorkbook.Name).Sheets("Menu").Activate
MenuBars(xlWorksheet).Menus.Add Caption:="KLEOPATRA", Before:=100
For Each Sayfa In Worksheets
MenuBars(xlWorksheet).Menus("KLEOPATRA").MenuItems.Add _
Caption:=Sayfa.Name, OnAction:="SAYFA_SEÇ"
Next
End Sub
Bu kod ile dosyadaki tüm sayfalar menü çubuğuna ekleniyor ve sayfa_seç makrosu ile tkıladığım sayfaya gidiyorum.Benim istediğim;bazı sayfaları (öreneğin:aktar,alacaksayfası,borçsayfası,ürün_cinsi_ekle,kasa_cinsi_ekle)menü çubuğuna aktarmasın,