Excel VB Code to automatically assign title in PowerPoint

[absthechatter]

I have written a Macro that copies a chart from Excel, creates a new slide in Powerpoint adds a blank title ("Click to add title") to the top and pastes the chart as a picture. What I really want to do is get the Macro to add the actual title I want, this will be different for each chart.
The code for title I have at moment is;

SlideCount = PPPres.Slides.Count
Set PPSlide = PPPres.Slides.Add(SlideCount + 1, ppLayoutTitleOnly)
PPApp.ActiveWindow.View.GotoSlide PPSlide.SlideIndex

Any idea what I add to get it to write title??

Any help would be much appreciated.

Abs

[brundles]

I've not tried anything with Powerpoint from Excel, but Ozgrid tends to have some VBA gurus hanging around most of the time.