This works by me:

'------------------------------
Sub test()
Dim EmailAddress As String
Dim found As Range
Range("A1:A500").Select
EmailAddress = InputBox( _
"enter Email Address", _
"Email Address")
Set found = Selection.Find( _
What:=EmailAddress, _
After:=ActiveCell, _
LookIn:=xlFormulas, _
Lookat:=xlPart, _
Searchorder:=xlByRows, _
searchdirection:=xlNext, _
MatchCase:=False)
If found Is Nothing Then
MsgBox "Not found"
Else
found.Activate
End If
End Sub
--

HTH
--
AP

"jhahes" a écrit dans
le message de ...

I tried the solution and got the same error both times now. When I
found the entry and when I didn't find the entry.


Josh


--
jhahes
------------------------------------------------------------------------
jhahes's Profile:
http://www.excelforum.com/member.php...o&userid=23596
View this thread: http://www.excelforum.com/showthread...hreadid=521150