Sheet1.Range("B2").Resize(1 to UBound(vaUniques, 1), _
1 to 1).Value = Application.Transpose(vaUniques)

--
Regards,
Tom Ogilvy


"Ken Johnson" wrote in message
oups.com...
Hi Alan,
It just looks to me like the way I set up my vaUniques array with just
the one index variable as in vaUniques(n) rather than with two as in
vaUniques (n,1) that this results in Excel not transferring the data to
the worksheet using Resize, so I had to use a loop. The loop is
definitely slower.
Your aside looks interesting and relevant, I'll have a look later
today.
Thanks for your help Alan.

Ken Johnson
Sounds interesting and relevant. I'll have a look a look a that