msgbox yes or no

[choice]

MsgBox Range("sale!hr2").Value, vbYesNo

If vbYes Then
MsgBox "yes", vbOKOnly
End If
If vbNo Then
MsgBox "no", vbOKOnly
End If

it does both yes and no, im sure im missing something simple...i just dont
know what it is

thanks in advance

 

[Toppers]

reply= MsgBox(Range("A1").Value, vbYesNo)

If reply = vbYes Then
MsgBox "yes", vbOKOnly
Else
MsgBox "no", vbOKOnly
End If


HTH

 

[John]

Dear Choice,

Try this:

If MsgBox(Range("sales!hr2"), vbYesNo) = vbYes Then
MsgBox "Yes"
Else
MsgBox "No"
End If

Best regards

John