You need to declare a variable to represent the PowerPoint application:

Dim ppApp As PowerPoint.Application

Then you need to instantiate it in one of several ways. Assuming you have
Ppt running already:

Set ppApp = GetObject(, "PowerPoint.Application")

now adjust the line you posted:

ppApp.ActiveWindow.Selection.ShapeRange.Name = "testname"

Here's more on controlling one program from another:

http://peltiertech.com/Excel/XL_PPT.html

- Jon
-------
Jon Peltier, Microsoft Excel MVP
Tutorials and Custom Solutions
Peltier Technical Services, Inc. - http://PeltierTech.com
_______


"Aaron" wrote in message
...
With a worksheet object selected in Powerpoint this code works perfectly
from
PP VBE but from Excel VBE I get "Run-time error 429: ActiveX comonent
can't
create object"

PowerPoint.Application.ActiveWindow.Selection.Shap eRange.Name = "testname"

Through tools references I have selected:
VBA
MS XL 11.0 obj lib
OLE auto
MS off 11.0 obj lib
MS PP 11.0 obj lib
and just for kicks I tried some MS ActiveX object libraies, but they did
not
seem to help so I have deselected them now. Any ideas?