Возведение матрицы в квадрат.в vba

[Staricraft]

Нужно матрицу 5 на 5 возвести в квадрат с помощью процедуры....мож кто поможет найти ошибку или другой способ?

Sub Макрос1()
Const n = 5, m = 5, l = 5
Dim a(1 To n, 1 To m) As Long
Dim s As Integer
Dim k As Integer
Dim x As Integer
Dim y As Integer
Sheets("Лист1").Activate
For i = 1 To n
For j = 1 To m
a(i, j) = ThisWorkbook.ActiveSheet.Cells(i, j)
Next j
Next i
Call matr(n, m, a, a, a, l)
For i = 1 To n
For j = 1 To m
Cells(i, j) = a(i, j)
Next j
Next i
End Sub

процедура:

Sub matr(k, d, h, q, a, g)
r = 0
For i = 1 To k
For j = 1 To d
For o = 1 To g
r = r + h(o, i) * q(j, o)
a(i, j) = r
Next o
Next j
Next i
End Sub

[EducatedFool]

Нужно матрицу 5 на 5 возвести в квадрат

А это как?
Может, просто возвести в квадрат каждое из чисел в матрице?

Sub Макрос1()
    Const n = 5, m = 5
    a = Cells(1, 1).Resize(n, m).Value    ' считываем с листа в массив
    Процедура a    ' возводим в квадрат
    Cells(1, 1).Resize(n, m).Value = a    ' заносим обратно на лист
End Sub

Sub Процедура(arr)
    For i = LBound(arr, 1) To UBound(arr, 1)
        For j = LBound(arr, 2) To UBound(arr, 2)
            arr(i, j) = Val(arr(i, j)) * Val(arr(i, j))
        Next j
    Next i
End Sub

[Staricraft]

Там по правилам она возводиться в квадрат, перемножая определённые элементы столбцов и строк, в поисковике любом можно посмотреть наглядно как)))))

[Staricraft]

например a(1,1)=a(1,1)*a(1,1)+a(1,2)*a(2,1)+ a(1,3)*a(3,1)+a(1,4)*a(4,1)+a(1,5)* a(5,1)- так получается первый элемент матрицы в квадрате)))