You never said where you wnated to put the value. This code places the yes or
No in the first empty cell of column A on sheet 1

Sub AddMessage()
With Sheet1.Cells(Rows.Count, "A").End(xlUp).Offset(1, 0)
If MsgBox("Yes or No", vbYesNo, "Yes/No") = vbYes Then
.Value = "Yes"
Else
.Value = "No"
End If
End With
End Sub

--
HTH...

Jim Thomlinson


"Brad N" wrote:

I'd like to create a pop-up windo that the user selects yes or no and their
response is recorded in an excel cell