I also tried doing this..



Code:
--------------------

Sub bye()

With ActivePresentation.Slides(1).Shapes(1).OLEFormat.O bject.Application
.Workbooks(1).Worksheets(1).Range("B2:C6").Value = "AB"
End With
With ActivePresentation.Slides(1).Shapes("Object 11568").OLEFormat.Object.Application
.Workbooks(1).Worksheets(1).Range("B2:C6").Value = "AB"
End With
Print ActivePresentation.Slides(1).Shapes(1).Name

End Sub

--------------------




but it doesn't seem to work..

and why is it that i'm not able to run this macro in design mode? (in
the run macro window, the "run" button is greyed out. only the cancel,
edit, and delete buttons are active.. why is this?)

anybody? :(


--
epak
------------------------------------------------------------------------
epak's Profile: http://www.excelforum.com/member.php...o&userid=32716
View this thread: http://www.excelforum.com/showthread...hreadid=525485