VBA Line producing wrong/unintended results

[jim may]

Why is this line...

ActiveSheet.Range("B3").Resize(3, 1).Value = Array("Jan", "Feb", "Mar")

producing

in Range B3:B5 >>>>>
Jan
Jan
Jan

Does the Transpose statement need to be considered?

Tks in Advance!!

 

[Joe4]

Do you want "Jan" in cell B3, "Feb" in cell B4, and "Mar" in cell B5?
If so, I believe you will need a loop to iterate through your array in VBA.

 

[Yongle]

[COLOR=#008080][I]vertically[/I][/COLOR]
ActiveSheet.Range("B3").Resize(3, 1).Value = WorksheetFunction.Transpose(Array("Jan", "Feb", "Mar"))
[COLOR=#008080][I]horizontally[/I][/COLOR]
ActiveSheet.Range("B3").Resize(1, 3).Value = Array("Jan", "Feb", "Mar")

 

[Joe4]

I stand corrected. Apparently, it can be done without a loop,as Yongle shows.

 

[jim may]

Thanks Guys!!!