PPT Macro in Master

[gottaski]

I have the following sub proc in the master of slide presentation B:

Sub SubBranchLink()
Dim sCurrentPresentation As String
Dim sPath As String

sPath = ActivePresentation.Path
sCurrentPresentation = ActivePresentation.FullName
MsgBox (sCurrentPresentation)
Presentations(sCurrentPresentation).Close
Presentations.Open (sPath & "A_StartHere.PPT")

End Sub

What I want to happen:
Slide Presentation A_StartHere has link - opens presentation B
When you click link to close B, sub SubBranchLink should execute. This is not happening. I have assigned the code to the action of the link.

If I open slide presenation B and click the link, I see my msg and it closes.

I have also tested this code in another presenation, let's call it C. C does not have a master though and it works fine.

Anyone know what is going on? I'm in a rush too!