Powerpoint - Macro to run custom show - Not Working

[dnky]

I've got a "menu" slide with all the custom shows assigned to buttons. I need to style the buttons as "visited" once clicked but I can't assign a link AND a macro to a button so I'm trying to get the macro to run the custom show.

Here;s what i have (the shape name is the same as the show name):

Sub MenuButton(oShape As Shape)

    showName = oShape.Name
    ActivePresentation.SlideShowSettings.Run
    SlideShowWindows(SlideShowWindows.Count).View.GotoNamedShow showName
    ActiveWindow.SlideRange.Shapes(showName).TextRange.Font.Color.RGB = RGB(Red:=192, Green:=192, Blue:=192)
End Sub

It doesnt work! please help
thanks

 

[dnky]

Dammit!

As always just after i post i read the code and spot the answer. The "style" syntax was wrong.

Anyway here's what it should have been. One question thou, how come it doesnt start a new slideshow?

Sub MenuButton(oShape As Shape)

    showName = oShape.Name
    ActivePresentation.SlideShowSettings.Run.View.GotoNamedShow showName
    ActiveWindow.Selection.SlideRange.Shapes(showName).TextFrame.TextRange.Font.Color.RGB = RGB(Red:=192, Green:=192, Blue:=192)
End Sub

 

[dnky]

I wish I could edit my posts...

I'm still stuck on this and have been for ages. I just need to recreate the powerpoint "link to custom show" action. i.e. the method of running a custom show and then returning to the original show once finished.

I can link to the original show as shown above. How do I go back to the menu after?