NicholasP
Active Member
- Joined
- Nov 18, 2006
- Messages
- 291
OK...one more piece of code is running super slow...I'm stepping through a range cell by cell (which I DON'T like, as the range is ~7000 cells) and for each cell I'm looking it up in a different range that contains lookup values that replace the abreviations in the range with 7000 cells...Any thoughts? This code really bogs down on the cell.offset(0,1) = c.value bit....
Again, I appreciate any assistance given -- Oh, and there are probably 30 or 40 abbreviations, hence the lookup table...
Thanks
Nick
Again, I appreciate any assistance given -- Oh, and there are probably 30 or 40 abbreviations, hence the lookup table...
Thanks
Nick
Code:
For each cell in Range(Cells(4,16),Cells(4,7000))
set c = rng.Find(cell, , , xlwhole)
If not c is nothing then
cell.offset(0,1) = c.value
End if
Next
Last edited: