OnAction Property Example
This example causes Microsoft Excel to run the ShapeClick procedure whenever shape one is clicked.
Worksheets(1).Shapes(1).OnAction = "ShapeClick"