Zellwerte aus Array füllen

gibt es eine Möglichkeit, ein Array of Strings OHNE for .. next Schleife direkt in einen Zellbereich
zu schreiben ?

Dim TestArray(2) as String
TestArray(0) = "A"
TestArray(1) = "B"

Range("A1:A2").value = TestArray

funktioniert leider nicht :(

Gruß,
Tim