J
jhahes
This is what I currently have, however if my entry is not in the range
then it makes me debug saying object variable not set or with block not
set. Is there anyway that I can actually have a msgbox "Not found" pop
up if the entry entered is not in the list.
Range("A1:A500").Select
Dim EmailAddress As String
EmailAddress = InputBox("enter Email Address", "Email Address")
Selection.Find(What:=EmailAddress, After:=ActiveCell,
LookIn:=xlFormulas, _
Lookat:=xlPart, Searchorder:=xlByRows, searchdirection:=xlNext,
_
MatchCase:=False, searchformat:=False).Activate
Thanks for any help
then it makes me debug saying object variable not set or with block not
set. Is there anyway that I can actually have a msgbox "Not found" pop
up if the entry entered is not in the list.
Range("A1:A500").Select
Dim EmailAddress As String
EmailAddress = InputBox("enter Email Address", "Email Address")
Selection.Find(What:=EmailAddress, After:=ActiveCell,
LookIn:=xlFormulas, _
Lookat:=xlPart, Searchorder:=xlByRows, searchdirection:=xlNext,
_
MatchCase:=False, searchformat:=False).Activate
Thanks for any help