Search Function with message box (exit sub)

[BerkayE]

Hello, I'm trying to get this search function to have a quit option, i.e. stop/cancel when clicked on no. The search and search next is working perfectly, but as soon as I add the the if response for the message box, it's not working. Thanks!!!

Private Sub TextBox1_KeyDown(ByVal KeyCode As MSForms.ReturnInteger, ByVal Shift As Integer)Dim strToFind As String
   Dim osld As Slide
   Dim oshp As Shape
Dim MsgBoxResult As Long
If KeyCode = 13 Then      'ENTER PRESSED
      strToFind = UCase(Me.TextBox1.Text)
      For Each osld In ActivePresentation.Slides
         For Each oshp In osld.Shapes
            If oshp.HasTextFrame Then
               If oshp.TextFrame.HasText Then
                  If InStr(UCase(oshp.TextFrame.TextRange), strToFind) > 0 Then
                     SlideShowWindows(1).View.GotoSlide (osld.SlideIndex)
                     MsgBox "On this slide", vbYesNo + vbQuestion, "Search Function"
                     If response = vbNo Then
                     Exit Sub
                     ElseIf response = vbYes Then
                     Exit For
                  End If
               End If
            End If
         Next oshp
      Next osld


   MsgBox "Finished"
   Me.TextBox1.Text = ""
End If
End Sub

[John Wilson]

Maybe

If MsgBox("On this slide", vbYesNo + vbQuestion, "Search Function") = vbNo Then
                     Exit Sub
                     Else
                     Exit For
                     End If

[BerkayE]

Maybe

If MsgBox("On this slide", vbYesNo + vbQuestion, "Search Function") = vbNo Then
                     Exit Sub
                     Else
                     Exit For
                     End If

Thank you VERY much! Btw is there a way to have show next and show previous result? (e.g. next and previous buttons on the msgbox?)

Thanks again!!

[John Wilson]

Not on a MsgBox but you can create a custom UserForm which would behave in this way. Small learning curve but useful skill.