I was able to get one scenario working. Here is what I did. However I now am having issues trying to create multiple scenarios. I was planning on just using ElseIf statements, but it keeps giving me errors that I'm trying to work through. Is there a more efficient way to create multiple options than with ElseIf statements?

Sub ifthen()
 
If Slide1.TextBox21.Value = "napr" Then
 
 
With Application
    .Presentations(1).SlideShowSettings.Run
With SlideShowWindows(1).View
    .GotoSlide 2

 
Exit Sub
 
 
End With
End With
End If