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


--
lehainam
------------------------------------------------------------------------
lehainam's Profile: http://www.excelforum.com/member.php...o&userid=18615
View this thread: http://www.excelforum.com/showthread...hreadid=552103