Run code in Slide Show mode (PP2000 WXP)

I cannot get macros to run in Slide Show mode.
I record a simple macro to draw a box. I then put an Action button on the screen and associate it with the macro using Slide Show/Action Setting/Run macro. I also add a sound to play.
The sound works but the macro will not run.
I have macros enabled (low).
Funny enough, the following runs. I get the msgbox but macro4 does not run.
Can anyone help?
Des
Sub Macro2()
MsgBox "macro 2 running"
With ActivePresentation.Slides(1).Shapes("AutoShape 5").ActionSettings(ppMouseOver)
.Action = ppActionRunMacro
.Run = "Macro4"
.AnimateAction = True
End With
End Sub

Re: Run code in Slide Show mode (PP2000 WXP)

Thanks Hans but no luck.
It works fine in Normal view but not in Slide Show.
The following works fine (another try) except that the shape does not move (ie, the message box comes up).
Bear in mind that it is the first time I have tried to run a macro in PP (I'm OK in Excel).
Des