Hi, All Experts

I tried run Power Point and paste on it some Charts from excel with this
code.

Something is wrong and I don't what is.

Thanks for your expert advice

Sub RunPowerPoint_Automation()
Dim PowerApp As PowerPoint.Application
Dim PowerPres As PowerPoint.Presentation
Set PowerApp = CreateObject("PowerPoint.Application")
Set PowerPres = PowerApp.Presentations.Open _
("C:\PowerTest.ppt")
PowerApp.Visible = True
PasteCharts
Set PowerApp = Nothing
End Sub