Makro i Powerpoint Slideshow

Hej,

Jeg har lavet en makro der sletter et retangel i en powerpoint præsentation. Det virker fint når jeg ikke er i diasshow.

Men jeg fandt ud af at man under "Handlingsindstillinger kan bede PowerPoint om at udføre en makro når der klikkes på et objekt. Mit problem er bare at hvis jeg vælger at udføre den makro, sker der intet. Lukker jeg diasshow ned igen og kører makroen manuelt uden diasshow virker det fint.

Whats wrong? :o)

Sub Delete1_1()
    ActiveWindow.Selection.SlideRange.Shapes("Rectangle 13").Delete
End Sub