Simple solution?

Is there a way that I can have an alert box (Message box) that provides a "Yes" or "No" option?

I want the code below to cause the message box to show YES & NO buttons that link to a certain cell giving a "1" for yes and a "2" for no.

S'possible?

Sub OptionButton69_Click()
With ActiveSheet
If Range("T6").Value = "1" Then
msg = "Has payment been made?"
MsgBox msg, vbOKOnly, "ATTENTION!"
End If
End With
End Sub

Good morning Josiah

Certainly is. The code below will put a 1 or a 2 in cell A1 depending on whether you select yes or no.

Sub Message()
Response = MsgBox("This is an example. Select yes or no.", vbYesNo, "Example")
If Response = vbYes Then
Range("A1").Select
ActiveCell.FormulaR1C1 = "1"
Exit Sub
Else
Range("A1").Select
ActiveCell.FormulaR1C1 = "2"
End If
End Sub

HTH

DominicB