Excel Menu Bar

[lehainam]

Dear all,

I am using Excel 2002 and have the below code to create a menu named
'Vsion Menu' it works. However when I use this file in Excel 2000 this
menu does not work or pop up to the Excel menu

Sub MakeMenu()
Dim myMenu, newMenu, Button1, Button2, Button3, Button4, Button5
Set myMenuBar = CommandBars("Worksheet menu Bar")
Set newMenu = myMenuBar.Controls.Add(Type:=msoControlPopup,
temporary:=True)
newMenu.Caption = "Vi&sion Menu"
End sub

Could anyone can help me why it does't work.

Thanks a lot!

Nam

 

[Leith Ross]

Hello lehainam,

I'm running Windows Xp Home Edition with Excel 2000 and the code works
fine. Try running your code on someone elses computer.

Sincerely,
Leith Ross