Assuming there is a numeric value in cell B6:
Set ppSlide = ppPres.Slides(Worksheets("VIVA GRAPH").Range("B6").Value)
Assuming there is a numeric value in cell B6:
Set ppSlide = ppPres.Slides(Worksheets("VIVA GRAPH").Range("B6").Value)
- Jon
-------
Jon Peltier, Microsoft Excel MVP
Peltier Technical Services
Tutorials and Custom Solutions
http://PeltierTech.com
_______
Posting Permissions
Reply With Quote