HeadingsToSync = Array("111", "222", "333", "ABC", "ABC %Total", "123ABC /
321CBA")
For y = LBound(HeadingsToSync) To UBound(HeadingsToSync)

Set rngFound = Cells.Find(What:=y, _
After:=ActiveCell, _
LookIn:=xlValues, _
LookAt:=xlWhole, _
SearchOrder:=xlByRows, _
SearchDirection:=xlNext, _
MatchCase:=True, _
SearchFormat:=False)

If rngFound Is Nothing Then

Else
rngFound.Select

Next y
================================
Manually searching for 111 works fine.
Not sure why the above approach when stepping through rngFound.Select does
not get me to that cell with a value of 111€¦

Appreciatively,
Arturo