Transpose heading array

[Limey]

Hi,

I use the following code the form heading at the top of the page, from
left to right, using an array as follows:

With Range("A1").Resize(1, 9)
.Value = Array("Container", "PO#", "Style", "Color & Size", _
"Pairs", "Origin", "Cartons", "Invoice Pairs", "Difference
to Invoice")
End With

My question is, how do I transpose this array, so that the headings go
from top to bottom, (range A1 to A9). Obviously the range resize
statement will be 9 rows one column, instead of 1 row nine columns it
is set to now.

thanks in advance for any help

 

[FSt1]

hi
instead of....
With Range("A1").Resize(1, 9)
change to....
With Range("A1").Resize(9, 1)

regards
FSt1

 

[Limey]

hi
instead of....
With Range("A1").Resize(1, 9)
change to....
With Range("A1").Resize(9, 1)

regards
FSt1

I'm slapping myself on the head here, Thank you )
Dave