My powerpoint contains 5 slides. The first slide is just a coverpage with a textbox “Welcome to presentation”. It has audio speech. After the speech, it will auto transition to slide 2.
The slide 2 is a multiple choice question. It has a question with 4 choices. I use optionbutton (activex control) for the 4 choices. Only 1 selection can be made as there is only one correct answer among the the 4 choices. It will show you made the correct choice or not before it auto transit to slide 3.
The slide 3 is the same as slide 2 with a multiple question and auto transit after choice made.
The slide 4 is also the same as slide 2 and slide 3.
The slide 5, I want to display a text box with the total correct score out of 3.
I try to insert the code in slide 5 but it does not run. I think if the slides are manually click, the code will run.

**Dim score1 As Integer
Dim score2 As Integer
Dim score3 As Integer
Dim ttlscore As Integer
score1 = 0
score2 = 0
score3 = 0
If ActivePresentation.Slides(2).Shapes("OptionButton1").OLEFormat.Object.Value = True Then
score1 = 1
End If
If ActivePresentation.Slides(3).Shapes("OptionButton4").OLEFormat.Object.Value = True Then
score2 = 1
End If
If ActivePresentation.Slides(4).Shapes("OptionButton4").OLEFormat.Object.Value = True Then
score3 = 1
End If
ttlscore = score1 + score2 + score3
ActivePresentation.Slides(5).Shapes("scoremsg").TextFrame.TextRange.Text = "The score is " & ttlscore & "."**

Question is how to make it run and display the text when my slideshow autotransit to slide 5? can here attached the powerpoint for best illustration? I have tried to insert into onslideshowpagechange but it does not seems to work as my slide will not auto transit.