John

If I have understood you correctly, then
add the following to Tom's code:

set rng = Worksheets("Sheet2").Range("G:G").Find( _
What:=VariableName, LookIn:=XlValues, _
LookAt:=xlWhole, MatchCase:=False)
if not rng is nothing then
msgbox "Match found"
else
msgbox "Match Not found"
End if


--
Best Regards
Leo Heuser

Followup to newsgroup only please.

"John" skrev i en meddelelse
om...
Thanks Tom. The samples below work good. If I wanted to use the Find
method, not sure if using Application. to use macro functionality is
good or bad, however is there a way to force a find match on the enter
word? So if one of the cells in "G" have "sam" and the VariableName
is "sa", I do not want it to match. It should only match if there is
an exact match. Won't really be an issue for what I'm doing, however
like to make sure things do not run astray for whatever reason.
Thanks.

JR