Returns or sets the name of a macro that’s run when the specified object is clicked. Read/write String.
Remarks
Setting this property for a menu item overrides any custom help information set up for the menu item with the information set up for the assigned macro.
Example
This example causes Microsoft Excel to run the ShapeClick procedure whenever shape one is clicked.
Worksheets(1).Shapes(1).OnAction = "ShapeClick"