Array in Function übertragen

Sub hallo()
Dim zeile As Integer
Dim spalte As Integer
Dim z(10) As Integer
Const startzeile As Integer = 1
spalte = 1
Sheets("Tabelle1").Select
For zeile = startzeile To 10
Cells(zeile, spalte).Select
z(zeile) = Val(ActiveCell)
Next zeile
result = Add(z(1), z(2), z(3), z(4), z(5), z(6), z(7), z(8), z(9), z(10))
End Sub
Function Add#(a#, b#, c#, d#, e#, f#, g#, h#, i#, j#)
addition = a + b + c + d + e + f + g + h + i + j
End Function

Funktioniert im Moment noch nicht! Bitte um hilfe!