The code below works perfectly fine:
In Module1:
Sub a
Msgbox "a"
Sheet1.Shapes("MyShape").OnAction = "b"
End Sub
Sub b
Msgbox "b"
Sheet1.Shapes("MyShape").OnAction = "a"
End Sub
However, if say in Module2 I also have two Subs, a and b, then I would like...