I have a graph and combo boxes that sit over .Range("L1:AD40"). When I
manually copy this range and paste special to a PP slide as an MS excel
object, I get exactly what I want. Please help to finish this code....

Sub Paste()
Dim objPPT As Object
Dim objPres As Object

ActiveWorkbook.Sheets("UTL").Range("L1:AD40").Copy

Set objPPT = CreateObject("PowerPoint.Application")
Set PPApp = GetObject(, "Powerpoint.Application")
objPPT.Visible = True
Set objPres = objPPT.presentations.Open("C:\documents and
Settings\scuap\desktop\test.ppt")

PPApp.ActiveWindow.View.GotoSlide 2
'I need to paste special as an object here but can't figure the code out?

End Sub