The screen goes to a cell, shows the question and user needs to respond, word
or number.

The screen goes to a cell

Do you mean that whenever a user selects a cell ?
If so, then use the Worksheet_SelectionChange event
The target would be whatever cell you choose.
The action would be something like:
Ans = Inputbox("Ask your question")
If Ans = " xyz" then
' ' Do this
Elseif Ans ="abc" then
' ' Do this
Else
Msgbox "Sorry....invalid Answer"
Exit Sub
End if

"Fercho" wrote:

The screen goes to a cell, shows the question and user needs to respond, word
or number.