Solved: This works horzintally but not vertically?

[Djblois]

How come when I try to run this array to fill down in cells, all the cells get the first one "George Gellert"

[VBA]Range("D1334").Value = Array("George Gellert", "Bob Gellert", "Tom Gellert", "Bernie Lillis", _
"Charlie Stough", "", "", "Partial Copies Distribution:", "", "Al Pish Depts 01 and 06", _
"John Jackson Depts 03 and 10", "Kerry Dambra Dept 15", "Teddy Ignat Depts 15 and 21", _
"", "", "", "Copy for filing", "", "", "", "", "=Today()")[/VBA]

[Andy Pope]

You need to transpose your array.

[vba]Range("D1334") = application.worksheetfunction.transpose(Array("George Gellert", "Bob Gellert", "Tom Gellert", "Bernie Lillis", _
"Charlie Stough", "", "", "Partial Copies Distribution:", "", "Al Pish Depts 01 and 06", _
"John Jackson Depts 03 and 10", "Kerry Dambra Dept 15", "Teddy Ignat Depts 15 and 21", _
"", "", "", "Copy for filing", "", "", "", "", "=Today()")) [/vba]

[Djblois]

Thank you Andy, you are the best