скажите пожалуйста, где косяк в проге? Бейсик ругается адово

Question

Sub num10()
Dim i, j, r, n
i = Range("Z30").Row
j = Range("Z30").Column
For n = 1 To 1100
r = Cos(n ^ 3 / (Sin(n) + 1))
If r >= 0 And r < 0.25 Then j = j - 1
If r >= 0.25 And r < 0.5 Then i = i - 1
If r >= 0.5 And r < 0.75 Then j = j + 1
If r >= 0.75 And r <= 1 Then i = i + 1
Next n
Cells(i, j).Address
End Sub

Решаю задачу 10.

Екатерина Сергеевна · Accepted Answer

Ругается случайно не на эту строчку Dim i, j, r, n ???
Объявите переменные правильно и все должно заработать.. . 
Dim n As Integer 
Dim i As Integer 
Dim j As Integer 
Dim r As Double 
 
Или как вариант удалите эту строчку 
Все переменные будут типом Variant 
Это скажется на быстродействии, но думаю, что для Вас это не критично.. .