Getting yes & no buttons to work in MsgBox

I think im missing an "IF" or "=" but spent hours now trying to figure this out but cant

Private Sub email_Click()

Dim resp

resp = MsgBox(vbTab & "Click YES if you would you like to view common issues?" & vbCrLf & vbTab & "Or" & vbCrLf & vbTab & "click NO to email the cost model along with an issue/query?" & vbCrLf & vbTab & "Or" & vbCrLf & vbTab & "click CANCEL to return", vbYesNoCancel + vbQuestion, "User input part help?")

If resp = vbNo Then
 '
 ' email Macro
 '
 '
 '
 ActiveWorkbook.Save
 'Optional parameters for xlDialogSendMail are: Recipients, Subject,
 Application.Dialogs(xlDialogSendMail).Show "name@company.co.uk", "Cost Model Query"
End If
 
If resp = vbYes Then
Yes = MsgBox(vbCrLf & vbTab & "Please make sure you have done the following:" & vbCrLf & vbTab & "" & vbCrLf & vbTab & "1. Enter Category & Customer in cells C1 & C2?" & vbCrLf & vbTab & "2. Enter all information required in the part input box?" & vbCrLf & vbTab & "3. Filled all required entries in blue cells & packhouse info section?" & vbCrLf & vbTab & "4. Calculated labour hours per case in calculator tab?" & vbCrLf & vbTab & "" & vbCrLf & vbTab & "If you still require further help please email.contact name" & vbCrLf & vbTab & "" & vbCrLf & vbTab & "Email. name@Company.co.uk" & vbCrLf & vbTab & "Tel. ", vbOK)
End If

If MsgBox = vbYes Then
'email Macro
ActiveWorkbook.Save
'Optional parameters for xLDialogSendMail are: Recipients, Subject,
Application.Dialogs(xlDialogSendMail).Show "name@company.co.uk", "Cost Model Help"
End If

End Sub

Basically i want to display the box "help? continue to common issues, email to email, cancel to return

If they then go common issues and decide to email i want the user to email, if they think "yes the common issues help i want to go back to the sheet, then go back to the sheet?????

are you getting an error in this line?

If MsgBox = vbYes Then???

Hi, shiftyspina,

maybe like this:

Private Sub email_Click()

Dim resp

resp = MsgBox(vbTab & "Click YES if you would you like to view common issues?" & vbCrLf & vbTab & _
    "Or" & vbCrLf & vbTab & "click NO to email the cost model along with an issue/query?" & _
    vbCrLf & vbTab & "Or" & vbCrLf & vbTab & "click CANCEL to return", _
    vbYesNoCancel + vbQuestion, "User input part help?")

Select Case resp
  Case vbNo
  '
  ' email Macro
  '
  '
  '
  ActiveWorkbook.Save
  'Optional parameters for xlDialogSendMail are: Recipients, Subject,
  Application.Dialogs(xlDialogSendMail).Show "Email", "Cost Model Query"
 
  Case vbYes
    MsgBox vbCrLf & vbTab & "Please make sure you have done the following:" & vbCrLf & vbTab & "" & _
        vbCrLf & vbTab & "1. Enter Category & Customer in cells C1 & C2?" & vbCrLf & vbTab & _
        "2. Enter all information required in the part input box?" & vbCrLf & vbTab & _
        "3. Filled all required entries in blue cells & packhouse info section?" & vbCrLf & vbTab & _
        "4. Calculated labour hours per case in calculator tab?" & vbCrLf & vbTab & "" & vbCrLf & _
        vbTab & "If you still require further help please email or contact somebody" & _
        vbCrLf & vbTab & "" & vbCrLf & vbTab & "Email. " & _
        vbCrLf & vbTab & "Tel. ", vbOK
    'email Macro
    ActiveWorkbook.Save
    'Optional parameters for xLDialogSendMail are: Recipients, Subject,
    Application.Dialogs(xlDialogSendMail).Show "Email", "Cost Model Help"
  Case vbCancel
    'whatever return means
End Select

End Sub

Ciao,
Holger

You have provided an email id and contact no in the code in post 1. Is that real and supposed to be confidential info? If yes, please edit the code and put dummy info in.

Hi, shiftyspina,

you could use either Exit Sub as command (leaving the sub just running) or End (which would stop all macros even those which called this one).

And with the code published if you choose yes and press Ok the mail will be sent (thatīs how I understood the code you supplied). If thatīs where you have the problem please comment the lines for email macro out.

Ciao,
Holger

Hi, shiftyspina,

sorry, donīt really understand what you are after, maybe like this:

Private Sub email_Click()

Dim resp As Long
Dim blnCancel As Boolean

Do
  blnCancel = False
  resp = MsgBox(vbTab & "Click YES if you would you like to view common issues?" & vbCrLf & vbTab & "" & vbCrLf & vbTab & _
      "Or" & vbCrLf & vbTab & "" & vbCrLf & vbTab & "click NO to email the cost model along with an issue/query?" & vbCrLf & vbTab & "" & _
      vbCrLf & vbTab & "Or" & vbCrLf & vbTab & "" & vbCrLf & vbTab & "click CANCEL to return", _
      vbYesNoCancel + vbQuestion, "User input part help?")
  
  Select Case resp
    Case vbNo
    '
    ' email Macro
    '
    '
    '
    ActiveWorkbook.Save
    'Optional parameters for xlDialogSendMail are: Recipients, Subject,
    Application.Dialogs(xlDialogSendMail).Show "Name@Company.co.uk", "Cost Model Query"
    blnCancel = False
    Case vbYes
      resp = MsgBox(vbCrLf & vbTab & "Please make sure you have done the following:" & vbCrLf & vbTab & "" & _
          vbCrLf & vbTab & "1. Enter Category & Customer in cells C1 & C2?" & vbCrLf & vbTab & _
          "2. Enter all information required in the part input box?" & vbCrLf & vbTab & _
          "3. Filled all required entries in blue cells & packhouse info" & vbCrLf & vbTab & "section?" & vbCrLf & vbTab & _
          "4. Calculated labour hours per case in calculator tab?" & vbCrLf & vbTab & "" & vbCrLf & _
          vbTab & "If you still require further help email or contact Name" & vbCrLf & vbTab & "Name" & _
          vbCrLf & vbTab & "" & vbCrLf & vbTab & "Email. Name@Company.co.uk " & _
          vbCrLf & vbTab & "Tel. 00000 000 000" & vbCrLf & vbTab & "" & vbCrLf & vbTab & "Click OK to send email", vbOKCancel + vbInformation)
      Select Case resp
        Case vbOK
          'email Macro
          ActiveWorkbook.Save
          'Optional parameters for xLDialogSendMail are: Recipients, Subject,
          Application.Dialogs(xlDialogSendMail).Show "Name@Company.co.uk", "Cost Model Help"
          blnCancel = False
        Case vbCancel
          blnCancel = True
      End Select
    Case vbCancel
     blnCancel = True
  End Select
Loop While blnCancel = True
End Sub

Ciao,
Holger

Hi, shiftyspina,

it takes at least two persons to not understand a problem.

Private Sub email_Click()

  Dim resp As Long
  
  resp = MsgBox(vbTab & "Click YES if you would you like to view common issues?" & vbCrLf & vbTab & "" & vbCrLf & vbTab & _
      "Or" & vbCrLf & vbTab & "" & vbCrLf & vbTab & "click NO to email the cost model along with an issue/query?" & vbCrLf & vbTab & "" & _
      vbCrLf & vbTab & "Or" & vbCrLf & vbTab & "" & vbCrLf & vbTab & "click CANCEL to return", _
      vbYesNoCancel + vbQuestion, "User input part help?")
  
  Select Case resp
    Case vbNo
    '
    ' email Macro
    '
    '
    '
    ActiveWorkbook.Save
    'Optional parameters for xlDialogSendMail are: Recipients, Subject,
    Application.Dialogs(xlDialogSendMail).Show "Name@Company.co.uk", "Cost Model Query"
    
    Case vbYes
      resp = MsgBox(vbCrLf & vbTab & "Please make sure you have done the following:" & vbCrLf & vbTab & "" & _
          vbCrLf & vbTab & "1. Enter Category & Customer in cells C1 & C2?" & vbCrLf & vbTab & _
          "2. Enter all information required in the part input box?" & vbCrLf & vbTab & _
          "3. Filled all required entries in blue cells & packhouse info" & vbCrLf & vbTab & "section?" & vbCrLf & vbTab & _
          "4. Calculated labour hours per case in calculator tab?" & vbCrLf & vbTab & "" & vbCrLf & _
          vbTab & "If you still require further help email or contact Name" & vbCrLf & vbTab & "Name" & _
          vbCrLf & vbTab & "" & vbCrLf & vbTab & "Email. Name@Company.co.uk " & _
          vbCrLf & vbTab & "Tel. 00000 000 000" & vbCrLf & vbTab & "" & vbCrLf & vbTab & "Click OK to send email", vbOKCancel + vbInformation)
      
      Select Case resp
        
        Case vbOK
          'email Macro
          ActiveWorkbook.Save
          'Optional parameters for xLDialogSendMail are: Recipients, Subject,
          Application.Dialogs(xlDialogSendMail).Show "Name@Company.co.uk", "Cost Model Help"
        
        Case vbCancel
          Exit Sub
      End Select
    
    Case vbCancel
      Exit Sub
  End Select
End Sub

Ciao,
Holger