Dim HeadingsToSync As Variant
Dim rngFound As Range
HeadingsToSync = Array("AA",€�BB", €œCC", €œDD % of Total€�, "XX AA/BB)
For y = LBound(HeadingsToSync) To UBound(HeadingsToSync)
Set rngFound = Cells.Find(What:=HeadingsToSync(y), _
After:=ActiveCell, _
LookIn:=xlValues, _
LookAt:=xlWhole, _
SearchOrder:=xlByRows, _
SearchDirection:=xlNext, _
MatchCase:=True, _
SearchFormat:=False)

==================================
Though the parameters in HeadingsToSyncs array are keyed in correctly,
their counterparts in any given sheet may have trailing or leading spaces.
Where exactly should I place the trim for cell being searched? Will keep
trying but keep getting a runtime error type mismatch 13.

Appreciatively,
Arturo

Instead of looking at xlwhole, maybe looking at xlpart would be sufficient.

Arturo wrote:

Dim HeadingsToSync As Variant
Dim rngFound As Range
HeadingsToSync = Array("AA",€�BB", €œCC", €œDD % of Total€�, "XX AA/BB)
For y = LBound(HeadingsToSync) To UBound(HeadingsToSync)
Set rngFound = Cells.Find(What:=HeadingsToSync(y), _
After:=ActiveCell, _
LookIn:=xlValues, _
LookAt:=xlWhole, _
SearchOrder:=xlByRows, _
SearchDirection:=xlNext, _
MatchCase:=True, _
SearchFormat:=False)

==================================
Though the parameters in HeadingsToSyncs array are keyed in correctly,
their counterparts in any given sheet may have trailing or leading spaces.
Where exactly should I place the trim for cell being searched? Will keep
trying but keep getting a runtime error type mismatch 13.

Appreciatively,
Arturo

--

Dave Peterson