Hi Howard,

Am Thu, 26 Nov 2015 20:55:57 -0800 (PST) schrieb L. Howard:

you have a parenthis on the wron place

.Cells(lNextRow, 1).Resize(UBound(vData), UBound(vData), 2) =
vData
.Cells(lNextRow, 1).Resize(UBound(vData), UBound(vData, 2)) = vData



Regards
Claus B.

..Ubound(vdata), 2) should be Ubound(vdata, 2))
Nice catch! Thank you, Claus<g

Sorry Howard, ..my bad!

--
Garry

Free usenet access at http://www.eternal-september.org
Classic VB Users Regroup!
comp.lang.basic.visual.misc
microsoft.public.vb.general.discussion