title: VBA code works in debug mode but fails to run in whole
body: <pre><code>Sub Export_as_PDF()
  Dim fil As Variant
  Dim strfile As String
  Dim PPApp As PowerPoint.Application
  Dim PPSlide As PowerPoint.Slide
  Dim SlideCount As Long
  Dim ws As Worksheet
  Dim Wb As Workbook
  
  Set PPApp = New PowerPoint.Application
  
  PPApp.Presentations.Add
  
  ' Slide 1
  
   PPApp.ActivePresentation.Slides.Add PPApp.ActivePresentation.Slides.Count + 1,ppLayoutBlank
  Set PPSlide = PPApp.ActivePresentation.Slides    (PPApp.ActivePresentation.Slides.Count)
  PPApp.ActiveWindow.View.GotoSlide PPApp.ActivePresentation.Slides.Count
  Sheet2.Range("F106").Copy
  PPApp.Activate
  PPApp.CommandBars.ExecuteMso "PasteExcelTableSourceFormatting"
  
  shapecount = PPSlide.Shapes.Count 'Error is here when shapecount = 0
  PPSlide.Shapes(shapecount).Select
  
  PPApp.ActiveWindow.Selection.ShapeRange.Left = 15
  PPApp.ActiveWindow.Selection.ShapeRange.Top = 15
  PPApp.ActiveWindow.Selection.ShapeRange.Width = 100
  
  End Sub
  </code></pre>
  
  <p>I use the above code (only part of a code is shown) to copy cell ranges from excel and paste as tables in ppt that can be edited. The error occurs in the line 'PPSlide.Shapes(shapecount).Select '
  It fails since shapecount = 0 . But if i choose to debug and run the previous line to count shapes, then shapecount is set to 1 and the code runs smooth. I am puzzled. Need help</p>