Having trouble hyperlinking between different presentations

[J Brack]

I am trying to hyperlink from presentation A (in slide show view) to
presentation B and close presentation A, all by single clicking on a
shape within a slide. Below is the macro I am using, but it only
works if I double click the shape. Any suggestions would be greatly
appreciated!

Sub opennewslide ()
With ActivePresentation.Slides(1).Shapes(41) _
.ActionSettings(ppMouseClick)
.Action = ppActionHyperlink
.Hyperlink.Address = "C:\Presentation B folder\Presentation
B.ppt"
End With
With Application.Presentations("Presentation B.ppt")
.Saved = True
.Close
End With
End Sub