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"