Don, try this

Sub addtoshortcutMN()
Set AddItem = CommandBars("shapes").Controls.Add
With AddItem
.Caption = "test"
.OnAction = "testmacro"
.BeginGroup = True
End With
End Sub

Sub RESETaddtoshortcutMN()
CommandBars("shapes").Reset
End Sub


-----Original Message-----
I would like to add an item to the right-click menu of
all of the
shapes in a particular workbook of mine. This will
launch a sub that
goes into an Access database and resizes the shape
depending on the
calculated time left to produce the order. Is this
possible? I would
definately like to keep the default menu items there too.

I noticed also that VB code doesn't seem to run when a
shape is
selected (I get a beep and nothing happens) Is this going
to prevent
me from launching code from the right-click menu of a
shape? Does
anyone know of any websites/resources that could get me
up to speed on
Excel shapes?

Any help would be greatly appreciated!

DL
.