Range Issue
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
"Arturo" wrote:
Any suggestions.
"JE McGimpsey" wrote:
Probably because the value in your worksheet is a number (111) while the
value in your array is Text.
In article ,
Arturo wrote:
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
|