Loop through a list

[helenks1]

I am in Excel 2003

I have an alphabetized list of names in column A.
Through a button, the user will enter a name. I want to loop through the list, find the name and place the cursor in the adjacent cell.

 

[SteveO59L]

Would "Adjacent" be to the right ?

 

[VoG]

Try with a button from the Controls toolbar

Private Sub CommandButton1_Click()
Dim Found As Range
Set Found = Columns("A").Find(what:=InputBox("Enter name"), LookIn:=xlValues, lookat:=xlWhole)
If Not Found Is Nothing Then Found.Offset(, 1).Select
End Sub

 

[helenks1]

Correct, the cell to the right of the name.

 

[SteveO59L]

myStr = Application.InputBox("Enter Item Code")
Set rng = Range("a1:a20")
For Each c In rng
If c.Value = myStr Then
c.Offset(0, 1).Select
Exit Sub
End If
Next c

 

[helenks1]

Thanks Steve, that worked.