Find Next Help - Please

[DDH]

The FindNext will not stay in Column A.
Please help me, I have tried to enter the Range("A:A").Select
in different lines, but nothing works.

Sub LineSearch()
Dim MyValue, MyFindNext
Range("A:A").Select
MyValue = InputBox("?")
Cells.Find(What:=MyValue).Activate
MyFindNext = vbYes
Do Until MyFindNext <> vbYes
MyFindNext = MsgBox("Next " & MyValue & "?", _
vbYesNo, "Find Next")
If MyFindNext = vbNo Then
Exit Sub
End If
Cells.FindNext(After:=ActiveCell).Activate
Loop
Exit Sub

End Sub

[anilsolipuram]

The code work good for me. it stays in column A for me

[DDH]

I wondered what I done wrong?
I tested my code on a test sheet by typing in column A
cell A1 Dog, cell A2 Cat, Cell A3 Pig

then I copied it over to column D
cell D1 Dog, cell D2 Cat, Cell D3 Pig


Then I typed in the Input box Cat and it went to A2, then to D2.

It did not stay in column A?

Thank you for your help, would you try the example please to see if yours does the same thing.

[anilsolipuram]

try this macro

you need to use selection.find instead of cells.find , cells.find will search entire worksheet.


Sub LineSearch()
On Error GoTo b:
Dim k As Variant
k = 0


Dim MyValue, MyFindNext
Range("A:A").Select
MyValue = InputBox("?")
Selection.Find(What:=MyValue).Activate
MyFindNext = vbYes
k = 1
Do Until MyFindNext <> vbYes
MyFindNext = MsgBox("Next " & MyValue & "?", _
vbYesNo, "Find Next")
If MyFindNext = vbNo Then
GoTo b:
End If
Selection.FindNext(After:=ActiveCell).Activate
Loop
b:
If k = 1 Then

Else
MsgBox "no match found"
End If
End Sub

[DDH]

It stayed in column A.
Thank you very much for all of your help.
I tried for several days to figure this out on my own without any sucess.
I will save your information on the "selection.find" for any future attempts
that I should try at VBA programing which I am not good at.
Thank you again for your help.