VBA Error Handling Loop Not Working Second Time Around

[Chris Macro]

Hopefully this is something that is an easy fix that I am overlooking. I am wanting to loop through each slide and essentially skip slides that do not contain a shape called Graph2 or Graph3. My error handler works fine in skipping the Title Slide however the second time around I need to handle an error, I actually get an error message popping up. I believe I am not resetting my error handler properly. Any thoughts?

Sub ErrorHandlingProblem()

Dim sld As Slide
Dim shpSelected As Shape
Dim shpTrigger As Shape


For Each sld In ActivePresentation.Slides
  On Error GoTo SkipSlide
    Set shpSelected = sld.Shapes("Graph3")
    Set shpTrigger = sld.Shapes("Graph2")
  On Error GoTo 0
  
  '[Do Something...]
  
SkipSlide:
Err.Number = 0


Next sld


End Sub

 

[Jonmo1]

You have to reset it to 0 after the Handler line

SkipSlide:
Err.Number = 0
On Error GoTo 0


Next sld

 

[Chris Macro]

Unfortunately that did not work. But it did somehow give me another idea and this seems to work in PowerPoint:

Sub ErrorHandlingProblem()

Dim sld As Slide
Dim shpSelected As Shape
Dim shpTrigger As Shape


For Each sld In ActivePresentation.Slides
  On Error Resume Next
    Set shpSelected = sld.Shapes("Graph3")
    Set shpTrigger = sld.Shapes("Graph2")
  
  If Err.Number = -2147188160 Then GoTo SkipSlide
  '[Do Something...]
  
SkipSlide:
Err.Number = 0


Next sld


End Sub

I know PowerPoint VBA can be a little sketchy so I wonder if it was just acting up for no reason in the way I was trying to handle the error before. Thanks!

 

[Jonmo1]

My bad, it's

Resume Next

instead of
On Error GoTo 0

 

[Chris Macro]

Oh, that makes sense! Thanks!!