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

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


HTH

"choice" wrote:

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