Hi Glenn!

I think next code works.

Sub DrivePresentation()
Dim MyPowerPoint As Object
Dim MyPresentation As Object
Dim myPath As String

myPath = Application.ActiveWorkbook.Path
myPath = myPath & "\"
Application.ActivateMicrosoftApp xlMicrosoftPowerPoint
Set MyPowerPoint = CreateObject("PowerPoint.Application")
MyPowerPoint.Visible = True
Set MyPresentation = MyPowerPoint.presentations.Open(myPath & "Dias.ppt")
With MyPresentation.SlideShowSettings
.ShowType = ppShowTypeSpeaker
.Run
End With
End Sub

Regards
Kari J Keinonen