Ошибка в VBA (Excel)

[Tomoa]

Здравствуйте уважаемые форумчане!
возникла небелшая проблема.
В VBA(Excel) создаю форму, на нее помещаю кнопку и RefEdit, после пишу код

Private Sub CB4_Click()
Dim i As Integer, j As Integer, n As Integer, q As Integer, w As Integer, d As Integer
Dim a() As Single
n = Range(RE1).Rows.Count
ReDim a(1 To n, 1 To n) As Single
ActiveSheet.Range(RE1).Select
For i = 1 To n
For j = 1 To n
a(i, j) = ActiveCell(i, j).Value
Next j
Next i
For i = 1 To n
For j = 1 To n
Select Case i
Case Is > j
q = q + a(i, j)
Case Is = j
w = w + a(i, j)
Case Is < j
d = d + a(i, j)
End Select
Next j
Next i
Cells(n + 1, 1) = "Главная диагональ : " & w
Cells(n + 2, 1) = "Выше главной : " & q
Cells(n + 3, 1) = "Ниже главной : " & d
End Sub

Запускаю программу, после выделения диапазона ячеек Excel виснет, на нажаттие кнопок не реагирует. Подскажите в чем проблема?

[eoln]

Сообщение от Tomoa

после выделения диапазона ячеек Excel виснет

В 2007 код подразумевает выделение не диапазона ячеек, а диапазона строк n = Range(RE1).Rows.Count. При этом ActiveCell теряет смысл. Зависаний нет...

[Tomoa]

вы не могли бы сказать, на что нужно изменить ActiveCell?

[eoln]

Координаты нужного места. Если таблица в верхнем левом углу, то подойдёт a(i, j) = Лист1.Cells(i, j)

[Tomoa]

у меня все равно не работает((
не могли бы вы выложить код или лист с примером?