Thanks, seem to be getting a compile error now "Expected end with" and it highlights "End Sub" I did add "End With" but it doesn't seem to like it

This is what the code looks like below .run
"          .Run                    With ActivePresentation.SlideShowSettings
.RangeType = ppShowSlideRange
.StartingSlide = 1
.EndingSlide = 15
.ShowType = ppShowTypeWindow
With .Run
.Left = 0
.Top = 0
.Width = 1280
.Height = 720
End With
'   Explicitly clear memory
    Set oPPTApp = Nothing
    Set oPPTPres = Nothing
End With
End Sub"