Inputbox Cancel Button - Not behaving

[BatFace]

I have the following code to find whatever is entered into the input box - move 11 columns right and enter "Y" in this cell;

Dim strFindText As String

strFindText = InputBox("type a number&quot
If strFindText <> &quot;&quot; Then Range(&quot;p1&quot.Value = strFindText

With Sheets(&quot;sheet1&quot.Range(&quot;d:d&quot
Set c = .find(strFindText, LookIn:=xlValues)
c.Offset(0, 11).Select
ActiveCell.FormulaR1C1 = &quot;Y&quot;

msg = &quot;Another Number?&quot;
ans = MsgBox(msg, vbYesNo)

Do Until ans = vbNo
strFindText = InputBox(&quot;type a number&quot
Set c = .find(strFindText, LookIn:=xlValues)

c.Offset(0, 11).Select
ActiveCell.FormulaR1C1 = &quot;Y&quot;

msg = &quot;Another Number?&quot;
ans = MsgBox(msg, vbYesNo)

Loop

End With

When cancel is pressed on the input box, a &quot;Y&quot; is put in cell o5 (only and always o5)...I thought the second line of code would stop it but it hasn't....I must need to add something else - but I'm only a newbie to vba and am not sure what?

Thanks in advance for your help

 

[LSTAN]

Hi

Please refers to the MS Office forum, thread nos.

thread68-257429

rgrds
LSTAN