Error de compilación

Estoy empezando con las macros y estoy en un ejercicio de arrays bidimensionales con un random. Cada vez que ejecuto el procedimiento me salta el siguiente error:
" Error de compilación: El numero de dimensiones es incorrecto " y me marca datos(inicioy) (lo he subrayado en el código)
Te paso el código para que digas en que estoy fallando por favor, ya que yo ahora no consigo verlo, gracias de antemano!
Sub rnd_datos()
Dim datos(10, 10) As Integer
    Dim iniciox As Integer
    Dim finalx As Integer
    Dim inicioy As Integer
    Dim finaly As Integer
    iniciox = LBound(datos, 1)
 Do While (iniciox <= finalx)
    inicioy = LBound(datos, 2)
    Do While (inicioy <= finaly)
        datos(inicioy) = random()
        inicioy = inicioy + 1
    Loop
    iniciox = iniciox + 1
 Loop
End Sub