running application.presentations.open Filename

[Paddy]

I have a vb generated index with links to powerpoints presentations.

I need the hyperlink to open the presentation and to run a macro.

Here is what I have so far but I am unsure where or how to add the last line
of code so that the linked powerpoint is controlled by the application and on
open witll run the macro.


Set oApp = CreateObject("Powerpoint.Application")
oApp.Visible = True
ActivePresentation.Slides("A-02-L1").Shapes("Rectangle
3").TextFrame.TextRange _
.Lines(1, 1).text = "Test Link"
With ActivePresentation.Slides("A-02-L1").Shapes("Rectangle
3").TextFrame.TextRange _
.ActionSettings(ppMouseClick).Hyperlink
.Address = ".\A-04.ppt"
.TextToDisplay = "Test Link"
End With

This is the line of code I need the hyperlink to execute
'Application.Presentations.Open ("A-04.ppt")