error 9

[ebu]

hola! he creado un proramilla pa haber si domino los vectores y me da un error 9. alguien sabe xq??

'se supone que al clikar el Cb en el excel desde A1 para abajo se tiene que ver 1 2 3 4 5 pero nada. eso puede ser porq al pasar el vector datuak_hartu de la function tengo q pasarlo a un vector temporal en sub?? gracias.

Private Sub CommandButton1_Click()
Dim datuak_hartu() As Integer
Dim j As Integer

Range("A1").Select
For j = 1 To luzera
ActiveCell.FormulaR1C1 = datuak_hartu(j)
ActiveCell.Offset(0, 1).Select
Next j

End Sub

'se carga el vector.
Public Function datuak_hartu(luzera As Integer) As Integer
Dim i As Integer
For i = 1 To a
datuak_hartu(i) = i
Next i
End Function

'es esta funcion recoge el dato de la longitud del vector que es 5.
Public Function luzera() As Integer
Dim a As Integer
a = 5
luzera = a
End Function