I have an Excel sheet that shows a column with names. In my Macro I select (via an input box) the name of the person who I want to see. When I enter the name all the data associated with that person and within that row will be displayed. My code works fine, except, when "Cancel" is hit. I need code that will stop the macro when "Cancel" is entered, as of now the macro continues, I need it to stop. Any suggestions? Here is my code:

Sub Macro11()

    Dim rngValues1 As Range
    Dim strTableName1 As Range
    Dim cell1 As Range
    
    Set rngValues1 = [D3:D8]

    Dim ans1 As String, Name1 As Long
    
    
ans1 = InputBox("Please Enter Worker Name", "Worker Case Review")

For Each cell1 In rngValues1
        If cell1.Value = ans1 Then
            MsgBox "Worker: " & cell1.Offset(0, 0) & "         Worker Case Load: " & vbCrLf & vbCrLf & _
            "Case Name: " & cell1.Offset(0, -3) & "     NJS# " & cell1.Offset(0, -2) & "     Case Type: " & cell1.Offset(0, -1) & vbCrLf & vbCrLf & _
            "Intake Date: " & cell1.Offset(0, 1) & vbCrLf & vbCrLf & _
            "Invest. Completion Date: " & cell1.Offset(0, 2) & vbCrLf & vbCrLf & _
            "Days to Invest. Completion: " & cell1.Offset(0, 3) & "           Next MVR Due In: " & cell1.Offset(0, 5) & vbCrLf & vbCrLf & _
            "Supervisor 45 Day Case Review Due In: " & cell1.Offset(0, 6) & " Days" & vbCrLf & vbCrLf & _
            "Pre-Conference Completed? " & cell1.Offset(0, 12) & "           Post-Conference Completed? " & cell1.Offset(0, 16) & vbCrLf & vbCrLf & _
            "Worker/Supervisor Conference Completed? " & cell1.Offset(0, 18) & vbCrLf & vbCrLf & _
            "Initial Face to Face Completed? " & cell1.Offset(0, 13) & vbCrLf & vbCrLf & _
            "Investigation Findings: " & cell1.Offset(0, 10) & vbCrLf & vbCrLf & _
            "Risk Assessment Completed? " & cell1.Offset(0, 15) & "          Safety Assessment Completed? " & cell1.Offset(0, 14) & vbCrLf & vbCrLf & _
            "Risk Reassessment Completed? " & cell1.Offset(0, 17) & "       Strenghts/Needs Completed? " & cell1.Offset(0, 19) & vbCrLf & vbCrLf & _
            "School Collaterals Received? " & cell1.Offset(0, 20) & "           Medical Collaterals Received? " & cell1.Offset(0, 21) & vbCrLf & vbCrLf & _
            "Psych Collaterals Received? " & cell1.Offset(0, 22) & "            Police Reports Received? " & cell1.Offset(0, 23) & vbCrLf & vbCrLf & _
            "CIC Checks Completed? " & cell1.Offset(0, 25) & "                  NJS Search Completed? " & cell1.Offset(0, 26) & vbCrLf & vbCrLf & _
            "DVL Referral Completed? " & cell1.Offset(0, 27)

        End If
    Next
    
End Sub