Mtrans gibt nur #Name? aus

habe folgenden Code eingegeben. Damit will ich eine Matrix von 7 Werten transponieren kann. Ich kann alles ansteuern wie ich es will und mit der Cells-Funktion acuh varaibel gestalten. Es wird auch etwas in die angesteuerten Zellen geschrieben. Leider aber nur #Name?
Kennt jemand den Fehler. Wenn ich es ohne VBA-Code eingebe klappt es mit Mtrans.

Grüße

Andy

Sub Mtrans2()

Dim range1 As Range

Set range1 = ActiveSheet.Range(Cells(1, 1), Cells(7, 1))
Range(Cells(1, 5), Cells(1, 11)).Select
Selection.FormulaArray = "=transpose(range1)"
End Sub