dim varImpsArray as Variant
dim i as long

varImpsarray = wsImps.UsedRange.Value
For i = lbound(varImpsarray,1) to ubound(varImpsarray,1)
debug.print varImpsArray(i,1)
Next i

--
Regards,
Tom Ogilvy



mudraker wrote in message
...

Alex

Thanks for your reply

I just worked it out


dim varImpsArray as Variant
dim varEntry as Variant

varImpsarray = wsImps.UsedRange.Value
For Each varEntry In varImpsarray
do something
next varEntry


------------------------------------------------
~~ Message posted from http://www.ExcelTip.com/
~~View and post usenet messages directly from http://www.ExcelForum.com/