Macro no Excel que trabalha com a macro no Power Point

[erlancls]

Prezados, Boa Tarde!


Preciso de uma ajuda para se comunicar Macro Excel com Power Point, no arquivo em anexo detalho minha dúvida.

Resumindo essa macro roda legal, mas só que o arquivo do power point abre em modo de apresentação só no slide 3. gostaria que no excel na célula G8 o valor que tivesse nessa célula abrisse o slide.

MACRO NO EXCEL.
O procedimento Sub a seguir pressupõe que a apresentação PPTAutomation.ppt contém uma macro chamada "AutomationTest".

Sub PPTTest()
Dim PPT as Object

Set PPT = CreateObject("PowerPoint.Application")

PPT.Presentations.Open "C:\My Documents\PPTAutomation.ppt", , ,False

' Note that the file name and the module
' name are required to path the macro correctly.
PPT.Run "PPTAutomation.ppt!Module1.AutomationTest"

End Sub


MACRO NO POWER POINT

Sub AutomationTest()
With ActivePresentation.SlideShowSettings.Run.View
End With
Call gotoSlide
End Sub


Sub gotoSlide()
Application.SlideShowWindows(1).View.gotoSlide Index:=3
End Sub