This is a begining, what I really would like to do is start the macro, wait
for input, put that input into the active cell, move to the right, wait for
input, put that input into the active cell, then move down and to the left
one cell and then loop. This way I could enter information into two colums
moving down the colums.

Thank you
toiletman

"Harald Staff" wrote:

Sub WaitForInput()
Dim S As String
If MsgBox("Are you a user ?", vbYesNo + vbQuestion) = _
vbNo Then Exit Sub
S = InputBox("Dear mr User, please give me some input:", _
"Waiting for user input")
MsgBox "I really appreciate your input, mr User.", _
vbExclamation
End Sub

HTH. Best wishes Harald