Applying FIND Function on a Compound word

[sylink]

Column C contains names with some containing the word "LTD" I need to
find and activate the cell with names containing the word "LTD" E.g
"NIGERTEQ COMMUNICATION LTD"

I have applied the codes below without success:

Selection.Find(What:="LTD", After:=ActiveCell _
, LookIn:=xlValues, LookAt:=xlWhole _
, SearchOrder:=xlByColumns _
, SearchDirection:=xlNext).Activate

OR

Set Rng = Rows(x).Find("&LTD&")

Pls help on the right approach

 

[Dave Peterson]

I'd use lookat:=xlpart

dim FoundCell as range

set foundcell = selection.Find(What:="LTD", After:=ActiveCell _
, LookIn:=xlValues, LookAt:=xlPart _
, SearchOrder:=xlByColumns _
, SearchDirection:=xlNext)

if foundcell is nothing then
'didn't find it
else
foundcell.activate
end if