Printing an array to another sheet.

Hoping someone here can help me.

The following code is generating a run-time error 9. What is my problem here? The loop to generate the array is working fine but I just want to print the array to another sheet.

r = 2

For i = 1 To UBound (aZips) - 1

Sheets("Sheet2").Cells(r, 5) = aZips(i)

r = r + 1

Next i


Many thanks in advance.

Syntactically the code is correct. You may run into issues using uBound() - 1 as arrays are 0 based by default.

The only reason for an error 9 I can think of, in the code as posted, is that a worksheet named Sheet2 does not exist...

This is my guess(ONLY Guess)
You loaded your data in to array-aZips. Now you are looping through the array and want to write it back to range. I think you need to redim it and put the value of the loop in to the redim variant before you print back to sheet2