Shortcut menu help
Hi,
I've got a worksheet protected but I'd like my users to be able to add or
delete rows. I thought I could add a shortcut menu - but it's not working.
I'm using the following:
-----------------------------------
Set mInsertAndDeleteMenu = CommandBars.Add( _
Name:="Edit Menu", Position:=msoBarPopup, _
Temporary:=True)
With mInsertAndDeleteMenu.Controls.Add(Type:=msoControl Button)
.Caption = "Insert Rows"
.OnAction = "mInsertRows"
End With
-----------------------------------
The menu appears, but mInsertRows does not run. What am I doing wrong? Or
is there a better way to accomplish this?
Art
|