title: Displays msgbox Excel VBA
body: <p>My quest to complete my project is nearly done im just facing one final issue with my code. </p>
  
  <pre><code>Sub DeletePatientCheck()
  'check if patient record exists before deleting'
  Dim s As Worksheet
  On Error Resume Next
  'Check if Patient Record already exists'
  For Each s In Sheets
      If s.Name = Selection Then
      Worksheets(s.Name).Activate
      Call DeleteRecord
  End If
  Next s
  MsgBox "*No Patient Record Found!*"
  
  End Sub
  
  Sub DeleteRecord()
  'Confirm delete?'
  Answer = MsgBox("Are you sure you want to delete this Patient Record?", 
  vbQuestion + vbYesNo, "Delete Patient Record")
  
  If Answer = vbNo Then GoTo Skip
  If Answer = vbYes Then
  'It's benny, lets just double check'
  Answer = MsgBox("Are you absolutely sure!", vbQuestion + vbYesNo, "Delete 
  Patient Record - AYS")
  If Answer = vbNo Then GoTo Skip
  If Answer = vbYes Then
  ActiveSheet.Delete
  Sheets("Menu").Select
  MsgBox "*Patient Record has been deleted - If done in error please use 
  previous document version*"
  End If
  End If
  Skip:
  Sheets("Menu").Select
  End Sub
  </code></pre>
  
  <p>Basically, when the user submits a "no" response to the Answer msg box under sub DeleteRecord() the code currently brings it back to sub deletepatientcheck and goes to the msg box "No Patient Record found" . This happens even when a record is found.</p>
  
  <p>What I am trying to do is if a no response is given then bring up a different message box saying "Delete request cancelled" instead of the MsgBox "<em>No Patient Record Found!</em>". But no matter what IF/then function or Skip: i use it always displays the "No patient record found" msg box. Can anyone help? happy to explain further if required. Thanks in advance.</p>