Application s File Name = "c:\some_folder\presentation.ppt" Set o PPTPres = o PPTApp. Open(s File Name, With Window:=mso False) ' Do your stuff Contents © 1995 - 2017 Stephen Rindsberg, Rindsberg Photography, Inc. You may link to this page but any form of unauthorized reproduction of this page's contents is expressly forbidden.
On Time alert Time, "Show_Sheet3" End IF End Sub Sub Show_Sheet3() Dim Macro Keys As Worksheet: Set Macro Keys = Sheets("Macro Keys") Dim Sh1 As Worksheet: Set Sh1 = Sheets("Sheet1") Dim Sh2 As Worksheet: Set Sh2 = Sheets("Sheet2") Dim Sh3 As Worksheet: Set Sh3 = Sheets("Sheet3") Macro Keys. The macro runs fine some of the time, but every once in a while causes powerpoint to crash when it is pasting excel data into the presentation. Code: Option Explicit Sub Create Slides() Dim o PA As Power Point. Presentation 'Prevent screen from updating Application. Screen Updating = False 'Create presentation Set o PA = New Power Point. The error seems to happen more frequently with presentations that are longer or that have many charts pasted as pp Paste Metafile Enhanced Metafile. Is there a way i can loop through the sheets and show them one-by-one. I have tried below methods this doesnt work update : thanks all for your responses. When i run the code, the sheet display doesnt change. The macro is an endless loop through 3 sheets (it can be set to any number), based on timer set (here 2 sec). Eg, is my workbook has three sheets Sheet1, Sheet2 and Sheet3 and i write the code to display sheet1 for 10 sec, sheet2 for 10 secs and sheet3 for 10 sec in that order, during execution excel is stuck on the sheet from where i started the macro for 30 secs and displays the final sheet (sheet3). You can either insert a msg./validation box via code on each sheet load to ask the user if he wants to keep shuffling or stop on the current selection (this is not that userfriendly). Macro Keys) and set the validation value (Yes/No) for the shuffling (check the code below).