Sub santander()
Dim s As String
s = Application.InputBox(prompt:="Enter Name to be found: ", Type:=2)
For i = 1 To Cells(Rows.Count, 1).End(xlUp).Row
If s = Cells(i, 1).Value Then
Application.Goto reference:=Cells(i, 1), scroll:=True
Exit Sub
End If
Next
MsgBox (s & " not found")
End Sub

--
Gary''s Student - gsnu200751