what am i doing wrong here:




Sub allbcgone()
If ActivePresentation.Slides(2).Shapes("bc1").Visible = False & _
ActivePresentation.Slides(2).Shapes("bc2").Visible = False & _
ActivePresentation.Slides(2).Shapes("bc3").Visible = False & _
ActivePresentation.Slides(2).Shapes("bc4").Visible = False & _
ActivePresentation.Slides(2).Shapes("bc5").Visible = False & _
ActivePresentation.Slides(2).Shapes("bc6").Visible = False & _
ActivePresentation.Slides(2).Shapes("bc7").Visible = False & _
ActivePresentation.Slides(2).Shapes("bc8").Visible = False & _
ActivePresentation.Slides(2).Shapes("bc9").Visible = False & _
ActivePresentation.Slides(2).Shapes("bc10").Visibl e = False & _
ActivePresentation.Slides(2).Shapes("bc11").Visibl e = False & _
ActivePresentation.Slides(2).Shapes("bc12").Visibl e = False & _
ActivePresentation.Slides(2).Shapes("bc13").Visibl e = False & _
ActivePresentation.Slides(2).Shapes("bc14").Visibl e = False & _
ActivePresentation.Slides(2).Shapes("bc15").Visibl e = False Then
ActivePresentation.SlideShowWindow.View.GotoSlide (38)
Else
ActivePresentation.SlideShowWindow.View.GotoSlide (2)
End If

End Sub


i am not sure if this is correct, but what i am trying to do is that when all the shapes are not visible the go to slide 38 . if not then go to slide 2 to continue until they are not visible. but is not wotking. can someone help?