RosettaCodeData/Task/Matrix-transposition/VBA/matrix-transposition.vba

Function transpose(m As Variant) As Variant
    transpose = WorksheetFunction.transpose(m)
End Function