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/