Поменять местами элементы матрицы

Sub Obmen()
Dim A() As Integer, N As Integer, I As Integer, J As Integer
Dim Max As Integer, Ind As Integer, Временный As Integer
Worksheets(1).Cells.Clear
Worksheets(2).Cells.Clear
N = InputBox("Введите количество элементов в массиве:", "N")
'С помощью ReDim устанавливаем размерность массива.
'1 To - чтобы было удобнее, т.к. по умолчанию порядковый номер
'первого элемента массива ноль.
ReDim A(1 To N, 1 To N)
For I = 1 To N
    For J = 1 To N
        'Генерация чисел от 0 до 100.
        A(I, J) = Int((100 - 0 + 1) * Rnd() + 0)
    Next J
Next I
'Для наглядности выводим массив на первый лист Excel.
For I = 1 To N
    For J = 1 To N
        Worksheets(1).Cells(I, J).Value = A(I, J)
    Next J
Next I
'Собственно решение задачи.
For I = 1 To N
    Ind = 1
    Max = A(I, 1)
    For J = 2 To N
        If A(I, J) > Max Then
            Max = A(I, J)
            Ind = J
        End If
    Next J
    Временный = A(I, I)
    A(I, I) = A(I, Ind)
    A(I, Ind) = Временный
Next I
'Изменённый массив выведем на др. лист Excel.
For I = 1 To N
    For J = 1 To N
        Worksheets(2).Cells(I, J).Value = A(I, J)
    Next J
Next I
End Sub