Macro To Return Matrix

I have made a function (udf), called linjenr. It's input is an n by n matrix, and it returns a n by 2 matrix. This works fine in the worksheet. However, when I'm trying to use this function (udf) in a sub it fails, i.e. I get the error "object does'nt support this property or method". How do I use an own made function that returns an array in a sub macro? (ctrl shift + enter..)



Sub linjegenerator()

Dim nodematrise As Variant
Dim antlinjer As Integer
nodematrise = Range("F6:T20")
antlinjer = WorksheetFunction.Sum(nodematrise) / 2

If antlinjer < 3 Then
MsgBox "This is not a network. Minimum 3 lines."
ElseIf antlinjer > 2 Then
If antlinjer = 3 Then
'Range("F25:G27") = linjenr(nodematrise)
ElseIf antlinjer = 4 Then
'Range("F25:G28") = linjenr(nodematrise)
ElseIf antlinjer = 9 Then
Range("F25:G33") = WorksheetFunction.linjenr(nodematrise)
End If
End If
'antlinjer = WorksheetFunction.Sum(nodearray) / 2

MsgBox "Antall linjer = " & antlinjer

End Sub