Динамический массив - Subscript out of range

[Zeraim]

    Dim i, l, n, m As Integer
    Dim pdM() As Integer
    n = (Range("a1").Value - 1)
    m = (Range("a2").Value - 1)
    If (n > 0) And (m > 0) Then
        ReDim pdM(m To n)
        For l = 0 To m
            For i = 0 To n
                pdM(l, i) = Int(100 * Rnd + 1) //Тут и возникает ошибка. 
            Next i
        Next l
    End If

Использую офис2010.

[Skif-F]

Команду ReDim pdM(m To n)
надо написать так: ReDim pdM(m, n)

[IgorGO]

судя по коду, предполагалось использование 2-мерного массива. собственно ответ уже есть.
хочу лишь уточнить, на самом деле писать можно
и так: ReDim pdM(m To n) - это одномерный массив на n-m+1 элемент
и так: ReDim pdM(m, n) - это двухмерный массив
только это разные массивы и обращаться к элементам этих двух массивов необходимо соответственно pdM(i) и pdM(i, j).