Range Issue

[Arturo]

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

 

[JE McGimpsey]

Probably because the value in your worksheet is a number (111) while the
value in your array is Text.

 

[Arturo]

Any suggestions.

Probably because the value in your worksheet is a number (111) while the
value in your array is Text.

 

[Dave Peterson]

Instead of:
Set rngFound = Cells.Find(What:=y, _
you may want:
Set rngFound = Cells.Find(What:=headingstosync(y), _

Y is still just the index--not the value. (Refer to your earlier post.)

 

[Ralph]

You are searching for the index in the array in this case 0,1,2,3,4,5

try the following:

Dim HeadingsToSync As Variant
Dim y As Integer
Dim rngFound As Range

HeadingsToSync = Array("111", "222", "333", "ABC", "ABC %Total", "123ABC
/321 CBA ")
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)

If rngFound Is Nothing Then

Else
rngFound.Select
End If


Next y