Foro de programacion

Hola , estoy intentando aprender algo de las macros de excel y no sé cómo declarar una matriz pública que sea reconocida por todas las subs del programa.

Con este programa lo estoy intentando aprender pero no funciona ni a tiros.
Si funcionara me pondría los números 1 , 2 y 3 en las celdas a1 a2 a3.


Si estuviera bien declarado la sub() llamada sub_rutin asignaría valores a la matriz a(i).



_____________________________________
Public a() As Integer

______________________________
Sub Elfornext()

Range("a1").Select

For i = 1 To 3

Call sub_rutin
ActiveCell.FormulaR1C1 = a(i)
ActiveCell.Offset(1, 0).Range("A1").Select

Next i

End Sub
____________________________________________

Sub sub_rutin()
a(i) = i
End Sub



Saludos y gracias.