Hello all. I've created a radiology review presentation on PowerPoint with a brief 12 question quiz at the end. The macros for the questions are working fine but I can't seem to get the quiz results page to auto-create when the quiz is completed. Can anyone spot the error(s) in the code? Thanks for the help!

[vba]
Dim numCorrect As Integer
Dim numIncorrect As Integer
Dim q1Answered As Boolean
Dim q2Answered As Boolean
Dim q3Answered As Boolean
Dim q4Answered As Boolean
Dim q5Answered As Boolean
Dim q6Answered As Boolean
Dim q7Answered As Boolean
Dim q8Answered As Boolean
Dim q9Answered As Boolean
Dim q10Answered As Boolean
Dim q11Answered As Boolean
Dim q12Answered As Boolean
Dim answer1 As String
Dim answer2 As String
Dim answer3 As String
Dim answer4 As String
Dim answer5 As String
Dim answer6 As String
Dim answer7 As String
Dim answer8 As String
Dim answer9 As String
Dim answer10 As String
Dim answer11 As String
Dim answer12 As String



Sub GetStarted()
Initialize
ActivePresentation.SlideShowWindow.View.Next
End Sub

Sub Initialize()
numCorrect = 0
numIncorrect = 0
q1Answered = False
q2Answered = False
q3Answered = False
q4Answered = False
q5Answered = False
q6Answered = False
q7Answered = False
q8Answered = False
q9Answered = False
q10Answered = False
q11Answered = False
q12Answered = False

End Sub

Sub Answer1_Scrofula()
If q1Answered = False Then
numIncorrect = numIncorrect + 1
answer1 = "a) Scrofula"
End If
q1Answered = True
ActivePresentation.SlideShowWindow.View.GotoSlide 41
End Sub
Sub Answer1_DivingRanula()
If q1Answered = False Then
numIncorrect = numIncorrect + 1
answer1 = "b) Diving ranula"
End If
q1Answered = True
ActivePresentation.SlideShowWindow.View.GotoSlide 42
End Sub
Sub Answer1_VenolymphaticMalformation()
If q1Answered = False Then
numIncorrect = numIncorrect + 1
answer1 = "c) Venolymphatic malformation"
End If
q1Answered = True
ActivePresentation.SlideShowWindow.View.GotoSlide 43
End Sub
Sub Answer1_BranchialCleftSinus()
If q1Answered = False Then
numCorrect = numCorrect + 1
answer1 = "d) Branchial cleft sinus"
End If
q1Answered = True
ActivePresentation.SlideShowWindow.View.GotoSlide 40
End Sub
Sub Answer2_Rhabdomyosarcoma()
If q2Answered = False Then
numCorrect = numCorrect + 1
answer2 = "a) Rhabdomyosarcoma"
End If
q2Answered = True
ActivePresentation.SlideShowWindow.View.GotoSlide 45
End Sub

Sub Answer2_InfantileHemangioma()
If q2Answered = False Then
numIncorrect = numIncorrect + 1
answer2 = "b) Infantile hemangioma"
End If
q2Answered = True
ActivePresentation.SlideShowWindow.View.GotoSlide 46
End Sub
Sub Answer2_Neurofibroma()
If q2Answered = False Then
numIncorrect = numIncorrect + 1
answer2 = "c) Neurofibroma"
End If
q2Answered = True
ActivePresentation.SlideShowWindow.View.GotoSlide 47
End Sub
Sub Answer2_BenignMixedTumor()
If q2Answered = False Then
numIncorrect = numIncorrect + 1
answer2 = "d) Benign mixed tumor (pleomorphic adenoma)"
End If
q2Answered = True
ActivePresentation.SlideShowWindow.View.GotoSlide 48
End Sub
Sub Answer3_VenolymphaticMalformation()
If q3Answered = False Then
numCorrect = numCorrect + 1
answer3 = "c) Venolymphatic malformation"
End If
q3Answered = True
ActivePresentation.SlideShowWindow.View.GotoSlide 50
End Sub

Sub Answer3_Neurofibroma()
If q3Answered = False Then
numIncorrect = numIncorrect + 1
answer3 = "a) Neurofibroma"
End If
q3Answered = True
ActivePresentation.SlideShowWindow.View.GotoSlide 51
End Sub
Sub Answer3_BranchialCleftCyst()
If q3Answered = False Then
numIncorrect = numIncorrect + 1
answer3 = "b) Branchial cleft cyst"
End If
q3Answered = True
ActivePresentation.SlideShowWindow.View.GotoSlide 52
End Sub
Sub Answer3_Parotitis()
If q3Answered = False Then
numIncorrect = numIncorrect + 1
answer3 = "d) Parotitis"
End If
q3Answered = True
ActivePresentation.SlideShowWindow.View.GotoSlide 53
End Sub
Sub Answer4_Parotitis()
If q4Answered = False Then
numCorrect = numCorrect + 1
answer4 = "c) Parotitis"
End If
q4Answered = True
ActivePresentation.SlideShowWindow.View.GotoSlide 55
End Sub

Sub Answer4_Neurofibroma()
If q4Answered = False Then
numIncorrect = numIncorrect + 1
answer4 = "a) Neurofibroma"
End If
q4Answered = True
ActivePresentation.SlideShowWindow.View.GotoSlide 56
End Sub
Sub Answer4_InfantileHemangioma()
If q4Answered = False Then
numIncorrect = numIncorrect + 1
answer4 = "b) Infantile hemangioma"
End If
q4Answered = True
ActivePresentation.SlideShowWindow.View.GotoSlide 57
End Sub
Sub Answer4_BenignMixedTumor()
If q4Answered = False Then
numIncorrect = numIncorrect + 1
answer4 = "d) Benign mixed tumor"
End If
q4Answered = True
ActivePresentation.SlideShowWindow.View.GotoSlide 58
End Sub
Sub Answer5_StensenDucts()
If q5Answered = False Then
numCorrect = numCorrect + 1
answer5 = "b) Stensen ducts"
End If
q5Answered = True
ActivePresentation.SlideShowWindow.View.GotoSlide 60
End Sub

Sub Answer5_WhartonDucts()
If q5Answered = False Then
numIncorrect = numIncorrect + 1
answer5 = "a) Wharton ducts"
End If
q5Answered = True
ActivePresentation.SlideShowWindow.View.GotoSlide 61
End Sub
Sub Answer5_BartholinDucts()
If q5Answered = False Then
numIncorrect = numIncorrect + 1
answer5 = "c) Bartholin ducts"
End If
q5Answered = True
ActivePresentation.SlideShowWindow.View.GotoSlide 62
End Sub
Sub Answer5_DuctsOfRivinus()
If q5Answered = False Then
numIncorrect = numIncorrect + 1
answer5 = "d) Ducts of Rivinus"
End If
q5Answered = True
ActivePresentation.SlideShowWindow.View.GotoSlide 63
End Sub
Sub Answer6_Trauma()
If q6Answered = False Then
numCorrect = numCorrect + 1
answer6 = "b) Trauma"
End If
q6Answered = True
ActivePresentation.SlideShowWindow.View.GotoSlide 65
End Sub

Sub Answer6_Abscess()
If q6Answered = False Then
numIncorrect = numIncorrect + 1
answer6 = "a) Abscess"
End If
q6Answered = True
ActivePresentation.SlideShowWindow.View.GotoSlide 66
End Sub
Sub Answer6_Neurofibroma()
If q6Answered = False Then
numIncorrect = numIncorrect + 1
answer6 = "c) Neurofibroma"
End If
q6Answered = True
ActivePresentation.SlideShowWindow.View.GotoSlide 67
End Sub
Sub Answer6_BenignMixedTumor()
If q6Answered = False Then
numIncorrect = numIncorrect + 1
answer6 = "d) Benign mixed tumor"
End If
q6Answered = True
ActivePresentation.SlideShowWindow.View.GotoSlide 68
End Sub
Sub Answer7_ViralInfection()
If q7Answered = False Then
numCorrect = numCorrect + 1
answer7 = "d) Viral infection"
End If
q7Answered = True
ActivePresentation.SlideShowWindow.View.GotoSlide 70
End Sub

Sub Answer7_AutoimmuneDisorder()
If q7Answered = False Then
numIncorrect = numIncorrect + 1
answer7 = "a) Autoimmune disorder"
End If
q7Answered = True
ActivePresentation.SlideShowWindow.View.GotoSlide 71
End Sub
Sub Answer7_Trauma()
If q7Answered = False Then
numIncorrect = numIncorrect + 1
answer7 = "b) Trauma"
End If
q7Answered = True
ActivePresentation.SlideShowWindow.View.GotoSlide 72
End Sub
Sub Answer7_Sialolithiasis()
If q7Answered = False Then
numIncorrect = numIncorrect + 1
answer7 = "c) Sialolithiasis"
End If
q7Answered = True
ActivePresentation.SlideShowWindow.View.GotoSlide 73
End Sub
Sub Answer8_Neurofibroma()
If q8Answered = False Then
numCorrect = numCorrect + 1
answer8 = "c) Neurofibroma"
End If
q8Answered = True
ActivePresentation.SlideShowWindow.View.GotoSlide 75
End Sub

Sub Answer8_BranchialCleftCyst()
If q8Answered = False Then
numIncorrect = numIncorrect + 1
answer8 = "a) Branchial cleft cyst"
End If
q8Answered = True
ActivePresentation.SlideShowWindow.View.GotoSlide 76
End Sub
Sub Answer8_InfantileHemangioma()
If q8Answered = False Then
numIncorrect = numIncorrect + 1
answer8 = "b) Infantile hemangioma"
End If
q8Answered = True
ActivePresentation.SlideShowWindow.View.GotoSlide 77
End Sub
Sub Answer8_BurkittLymphoma()
If q8Answered = False Then
numIncorrect = numIncorrect + 1
answer8 = "d) Burkitt lymphoma"
End If
q8Answered = True
ActivePresentation.SlideShowWindow.View.GotoSlide 78
End Sub
Sub Answer9_Scrofula()
If q9Answered = False Then
numCorrect = numCorrect + 1
answer9 = "c) Scrofula"
End If
q9Answered = True
ActivePresentation.SlideShowWindow.View.GotoSlide 80
End Sub

Sub Answer9_HIVInfection()
If q9Answered = False Then
numIncorrect = numIncorrect + 1
answer9 = "a) HIV infection"
End If
q9Answered = True
ActivePresentation.SlideShowWindow.View.GotoSlide 81
End Sub
Sub Answer9_Lupus()
If q9Answered = False Then
numIncorrect = numIncorrect + 1
answer9 = "b) Lupus"
End If
q9Answered = True
ActivePresentation.SlideShowWindow.View.GotoSlide 82
End Sub
Sub Answer9_SjogrenSyndrome()
If q9Answered = False Then
numIncorrect = numIncorrect + 1
answer9 = "d) Sjögren syndrome"
End If
q9Answered = True
ActivePresentation.SlideShowWindow.View.GotoSlide 83
End Sub
Sub Answer10_BurkittLymphoma()
If q10Answered = False Then
numCorrect = numCorrect + 1
answer10 = "b) Burkitt lymphoma"
End If
q10Answered = True
ActivePresentation.SlideShowWindow.View.GotoSlide 85
End Sub

Sub Answer10_InfantileHemangioma()
If q10Answered = False Then
numIncorrect = numIncorrect + 1
answer10 = "a) Infantile hemangioma"
End If
q10Answered = True
ActivePresentation.SlideShowWindow.View.GotoSlide 86
End Sub
Sub Answer10_Neurofibroma()
If q10Answered = False Then
numIncorrect = numIncorrect + 1
answer10 = "c) Neurofibroma"
End If
q10Answered = True
ActivePresentation.SlideShowWindow.View.GotoSlide 87
End Sub
Sub Answer10_BenignMixedTumor()
If q10Answered = False Then
numIncorrect = numIncorrect + 1
answer10 = "d) Benign mixed tumor"
End If
q10Answered = True
ActivePresentation.SlideShowWindow.View.GotoSlide 88
End Sub
Sub Answer11_AtypicalMycobacterium()
If q11Answered = False Then
numCorrect = numCorrect + 1
answer11 = "c) Atypical mycobacterium"
End If
q11Answered = True
ActivePresentation.SlideShowWindow.View.GotoSlide 90
End Sub
Sub Answer11_Sjogrensyndrome()
If q11Answered = False Then
numIncorrect = numIncorrect + 1
answer11 = "a) Sjögren syndrome"
End If
q11Answered = True
ActivePresentation.SlideShowWindow.View.GotoSlide 91
End Sub
Sub Answer11_PleomorphicAdenoma()
If q11Answered = False Then
numIncorrect = numIncorrect + 1
answer11 = "b) Pleomorphic adenoma"
End If
q11Answered = True
ActivePresentation.SlideShowWindow.View.GotoSlide 92
End Sub
Sub Answer11_HIVInfection()
If q11Answered = False Then
numIncorrect = numIncorrect + 1
answer11 = "d) HIV infection"
End If
q11Answered = True
ActivePresentation.SlideShowWindow.View.GotoSlide 93
End Sub
Sub Answer12_HIVInfection()
If q12Answered = False Then
numCorrect = numCorrect + 1
answer12 = "a) HIV infection"
End If
q12Answered = True
ActivePresentation.SlideShowWindow.View.GotoSlide 95
End Sub
Sub Answer12_Neurofibromatosis()
If q12Answered = False Then
numIncorrect = numIncorrect + 1
answer12 = "b) Neurofibromatosis"
End If
q12Answered = True
ActivePresentation.SlideShowWindow.View.GotoSlide 96
End Sub
Sub Answer12_AtypicalMycobacterium()
If q12Answered = False Then
numIncorrect = numIncorrect + 1
answer12 = "c) Atypical mycobacterium"
End If
q12Answered = True
ActivePresentation.SlideShowWindow.View.GotoSlide 97
End Sub
Sub Answer12_Scrofula()
If q12Answered = False Then
numIncorrect = numIncorrect + 1
answer12 = "d) Scrofula"
End If
q12Answered = True
ActivePresentation.SlideShowWindow.View.GotoSlide 98
End Sub
Sub PrintablePage()
Dim printableSlide As Slide
Dim homeButton As Shape
Dim printButton As Shape

Set printableSlide = ActivePresentation.Slides.Add(Index:=102, _
Layout:=ppLayoutText)
printableSlide.Shapes(1).TextFrame.TextRange.Text = _
"Here's how you did:"
printableSlide.Shapes(2).TextFrame.TextRange.Text = _
"You got " & numCorrect & " out of " & _
numCorrect + numIncorrect & "." & Chr$(102) & _
"Press the Print Results button to print your answers."
Set homeButton = ActivePresentation.Slides(102).Shapes.AddShape _
(msoShapeActionButtonCustom, 400, 450, 150, 50)
homeButton.TextFrame.TextRange.Text = "Start Again"
homeButton.ActionSettings(ppMouseClick).Action = ppActionRunMacro
homeButton.ActionSettings(ppMouseClick).Run = "StartAgain"
Set printButton = ActivePresentation.Slides(102).Shapes.AddShape _
(msoShapeActionButtonCustom, 200, 450, 150, 50)
printButton.TextFrame.TextRange.Text = "Print Results"
printButton.ActionSettings(ppMouseClick).Action = ppActionRunMacro
printButton.ActionSettings(ppMouseClick).Run = "PrintResults"
ActivePresentation.SlideShowWindow.View.Next
ActivePresentation.Saved = True
End Sub

Sub PrintResults()
ActivePresentation.PrintOptions.OutputType = ppPrintOutputSlides
ActivePresentation.PrintOut From:=102, To:=102
End Sub

Sub StartAgain()
ActivePresentation.SlideShowWindow.View.GotoSlide (1)
ActivePresentation.Slides(102).Delete
ActivePresentation.Saved = True
End Sub




[/vba]