Optionally, if you only want to put values in B2:B10...
replace this last line in 2nd sample
Range("A2:B10") = vNumsToCount
with this
Range("B2:B10") = Application.Index(vNumsToCount, 0, 2)
OR
Range("B2").Resize(UBound(vNumsToCount),1) _
= Application.Index(vNumsToCount, 0, 2)
--
Garry
Free usenet access at
http://www.eternal-september.org
Classic
VB Users Regroup!
comp.lang.basic.visual.misc
microsoft.public.
vb.general.discussion