The first three (all with stMacroLink = Shapes(something).OnAction) failed with a Compile error on the 'Shapes' word - Sub or function not defined. Same in the Sub to find the shape type.

'Dim soShp as ShapeOval' also gave a compile error - User-defined type not defined.

Same results under Windows.

Sorry - thanks for the sugggestions though.