rw = Ubound(myarray,1) - Lbound(myArray,1) + 1
col = Ubound(myArray,2) - Lbound(myArray,2) + 1

ActiveWorkbook.Worksheets("Sheet1") _
.Cells(y + 1, x + 1).Resize(rw,col).Value =
myarray(y, x)

--
Regards,
Tom Ogilvy

"bwreath " wrote in message
...
Hi,

I would appreciate help with the following.
It's probably something simple but it doesn't make sense
to me.

This line gives me the error

ActiveWorkbook.Worksheets("Sheet1").Cells(y + 1, x + 1).Value =
myarray(y, x)


Variable uses an automation type not supported in visual basic.
I get the same error when I trying to do

msgbox myarray(y, x) & " "

I think it has something to do with putting two different types
together but I'm not too sure.

thanks.


---
Message posted from http://www.ExcelForum.com/