Dim Score As Integer Sub CloseCAI() ActivePresentation.Close End Sub Sub Start() Score = 0 ActivePresentation.SlideShowWindow.View.GotoSlide (5) End Sub Sub Correct() Score = Score + 1 ActivePresentation.Slides(10).Shapes("ScoreBox").TextFrame.TextRange.Text = Score ActivePresentation.SlideShowWindow.View.Next End Sub Sub Wrong() ActivePresentation.Slides(10).Shapes("ScoreBox").TextFrame.TextRange.Text = Score ActivePresentation.SlideShowWindow.View.Next End Sub Sub Home() ActivePresentation.SlideShowWindow.View.GotoSlide (4) End Sub