vbyesno msgbox

  • Thread starter Thread starter matt3542
  • Start date Start date
M

matt3542

Dear Forum members,

When opening a workbook I would like to use a vbYesNo MsgBox to prompt the
user to answer yes or no to a given question. Depending on whether they
answer yes/no I want another MsgBox to confirm their input. I have tried
using the following but to no avail, can anyone please help? Thanks, Matt

Private Sub Workbook_Open()
MsgBox ("Question")
If MsgBox = vbYes Then
MsgBox ("Reply if yes")
Else
MsgBox ("Reply if no")
End If

End Sub
 
Option Explicit
Private Sub Workbook_Open()
dim Resp as long

resp = MsgBox(prompt:="Question", buttons:=vbyesno)
if resp = vbyes then
MsgBox "Reply if yes"
Else
MsgBox "Reply if no"
End If

End Sub
 
Thanks again Dave, appreciated

Dave Peterson said:
Option Explicit
Private Sub Workbook_Open()
dim Resp as long

resp = MsgBox(prompt:="Question", buttons:=vbyesno)
if resp = vbyes then
MsgBox "Reply if yes"
Else
MsgBox "Reply if no"
End If

End Sub
Click to expand...
 
If you won't need the answer to the question any place else in your code,
you can process the MsgBox response directly in the If..Then statement and
eliminate a variable (that would normally be used to hold the answer)...

Private Sub Workbook_Open()
If MsgBox(prompt:="Question", Buttons:=vbYesNo) = vbYes Then
MsgBox "Yes button was pressed"
Else
MsgBox "No button was pressed"
End If
End Sub

Rick
 
Hi Rick, Thankyou for taking the time to explain that, I did eventually try
that method and it worked.

Best regards
Matt
 
Back
Top