OnAction Property Example

This example causes Microsoft Excel to run the ShapeClick procedure whenever shape one is clicked.

Worksheets(1).Shapes(1).OnAction = "ShapeClick"