How to code a PowerPoint counter?

Question

Here's my problem:

I just found out how to make simple codes myself, maybe a couple days ago. I don't have much experience.

I am making a presentation In PowerPoint, and it involves a "Counter". Every time I run the macro on the button, label 1 in slide 2 (Dark gray) should go from 0 to 1, 1 to 2 and so on. I also have a second label (Light gray).  If the caption of label 1 is equal to the caption of label 2 (If it is equal to 1), the slideshow should go to slide 3. Otherwise, it goes to slide 4. I tried coding this myself, but I guess I don't know enough about the VBA language.

This is what I tried.

Sub Counter()

Slide2.Label1.Caption = (Slide2.Label1.Caption) + 1

'I got this from a video, and I have a feeling this won't work.

If Slide2.Label1.Caption = Slide2.Label2.Caption Then

ActivePresentation.SlideShowWindow.View.GotoSlide 3

Else

ActivePresentation.SlideShowWindow.View.GotoSlide 4

'I also have a feeling this is wrong.

End sub

Answer 1

Thought it might. The code looked ok otherwise.

It's a good habit to get into ... compiling the code after any change and before trying to run it, especially if you're going to be running it in slide show, where PPT just silently eats any errors and leaves you wondering why there were no burps.  ;-)

Answer 2

Wow, thanks! It works perfectly now.

Answer 3

You're missing an End If just before End Sub.  That will prevent it from compiling, and in slide show view, if the macro doesn't compile, you get no warning; it simply doesn't work.