You need something like this:
Set SubMenuItem = MenuItem.Controls.Add(Type:=msoControlButton)
With SubMenuItem
.Caption = "&Obtain Oracle Data"
.FaceId = 2109
.OnAction = "FullProcess"
End With

--
If this posting was helpful, please click on the Yes button.
Regards,

Michael Arch.




"mark" wrote:

Hi.

I'm trying to add a sub menu to a custom menu item, like on the Data menu
where the Filter item has three subs... Auto-Filter, Show All, and Advanced
Filter

I can add the Menu, and the first menu item, but haven't found where to then
add a list of things to the item created.

What is that next step?

Thanks,
Mark