Copy then Paste with a transpose

[SteveM]

In a macro, I am trying to transfer the values from a vertical named range to
a horizontal named range as described in the following example,

Test_Horizontal represents B2,B3,B4
Test_Vertical represents A1,A2,A3

Range("Test_Horizontal").Value = Range("Test_Vertical").Value

This however is not working. If both named ranges were vertical, the above
code will work.

Does anyone know how to do this without a copy and paste special
transpose?...or is this the most efficient way to do it.

Thank you

 

[Dave Peterson]

Range("Test_Horizontal").Value _
= Application.Transpose(Range("Test_Vertical").Value)

 

[SteveM]

Works perfectly. Thank You

Range("Test_Horizontal").Value _
= Application.Transpose(Range("Test_Vertical").Value)