Assign a macro to a shape in VBA

Private Sub Workbook_Open()
initializeShapeClickEvents
End Sub

Public Sub initializeShapeClickEvents()
'INITIALIZE THE OnAction FOR EACH SHAPE TO TRAP CLICKS WITH THE SHAPE NAMES
Dim theShape As Shape, theSheet As Worksheet

For Each theSheet In Sheets()
For Each theShape In theSheet.Shapes
'PASS THE SHAPE NAME AND THE WORKSHEET
theShape.OnAction = "'shapeClicked """ & theShape.name & """, """ & theSheet.name & """'"
Next theShape
Next theSheet
End Sub

Public Function shapeClicked(ByVal theShapeName As String, ByVal theSheet As String)
'.... do things
End Function