vbyesno msgbox

[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

 

[Sam Wilson]

dim x as variant
x = msgbox("Question")

if x = vbyesno...

 

[matt3542]

Thanks Sam, much appreciated

dim x as variant
x = msgbox("Question")

if x = vbyesno...

 

[Dave Peterson]

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

 

[matt3542]

Thanks again Dave, appreciated

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

 

[Rick Rothstein \(MVP - VB\)]

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

 

[matt3542]

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

Best regards
Matt