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
Bookmarks