In trying to have Excel create a Powerpoint slide, I get stuck on the line that attempts to build the slide...can someone tell me what I'm doing wrong in the last line below?
Dim PPApp As PowerPoint.Application
Dim PPPres As PowerPoint.presentation
Dim ppslide As PowerPoint.Slide
Set PPApp = CreateObject("powerpoint.Application.10")
Set PPPres = PPApp.Presentations.Add
PPApp.Activate
PPApp.ActiveWindow.View.GotoSlide Index:=ActivePresentation.Slides.Add(Index:=1, Layout:=ppLayoutTitle).SlideIndex
Dim PPApp As PowerPoint.Application
Dim PPPres As PowerPoint.presentation
Dim ppslide As PowerPoint.Slide
Set PPApp = CreateObject("powerpoint.Application.10")
Set PPPres = PPApp.Presentations.Add
PPApp.Activate
PPApp.ActiveWindow.View.GotoSlide Index:=ActivePresentation.Slides.Add(Index:=1, Layout:=ppLayoutTitle).SlideIndex