In diesem Beispiel wird festgelegt, dass Microsoft Excel immer die ShapeClick-Prozedur ausführt, wenn auf Form eins geklickt wird.
Worksheets(1).Shapes(1).OnAction = "ShapeClick"