Hi my company recently upgraded us from 2003 to 2010 Excel. Now as a result none of our macros work. Below is the Error and the entire. If someone could please explain why this is happening and what the solution is would be greatly appreciated.

If ToPPT = 1 Then
' Set rngNewRange to the collection of cells in the active Excel
' workbook and active sheet.
ThisWorkbook.Sheets(shname).Activate
application.Goto Reference:=sRange
Set rngNewRange = ThisWorkbook.Sheets(shname).Range(sRange)

This code is complicated because it's automating PowerPoint from Excel. The code creates a new PowerPoint presentation, and then manipulates the contents of the new presentation.

The error message says "Item Rectangle 2 not found in the Shapes collection" - the code contains a lot of references to named PowerPoint Shapes, any of which lines of code will fail if the specifically-named shape is missing from the PowerPoint file. It's possible that new PowerPoint 2003 presentations contain a shape item by that name by default, while new PowerPoint 2010 presentations don't.

I haven't worked with PowerPoint 2010 (nor 2007) much so don't know the differences offhand, but the first thing I'd look at is to see what kind of shape objects are contained in a PowerPoint 2003 presentation by default, and compare that with a default PowerPoint 2010 presentation. The code may need to be re-tailored to match the types of shapes (and shape names) that exist in PowerPoint 2010 by default.

This is not a commercial service; this is a community where people volunteer their time and expertise to help each other out. Coming here and demanding fast answers doesn't encourage anyone to want to make an effort to help, and is not in keeping with how this community works.

This is not a commercial service; this is a community where people volunteer their time and expertise to help each other out. Coming here and demanding fast answers doesn't encourage anyone to want to make an effort to help, and is not in keeping with how this community works.

If you find a solution at another site, let us know.

Gary

Thanks Gary been to the sight before...I know how it works. IF you have a solution lmk.

Here's what I suggest. Create an object reference to the Shapes collection that you want to manipulate then add a Stop statement. Open the Locals window and drill down into the collection items to see what they are named.Then adapt your code to match. Of course, if you will need to work with PPTs based on different slide masters, this could be a somewhat fragile approach. Maybe you can check each of the shapes to see if they have a name that matches either Rectangle 2 of the new name you discover.