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

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