Ошибка при программировании vba invalid outside procedure

Const pi = 3.14159265358979
Constni = 150
Constki = 450
Const a = 144

Sub решение ()
Dim x As Double
Dim c As Double
Dim Row As Integer
Row = 1
Sheets("vba").Select
For x = ni To ki Step 10
c = Round(100 * Sin(5 * x * pi / 180) - 90 * Cos(2.7 * x * pi / 180) - Exp(x / 192), 3)
If c = a Then
Row = Row + 1
Cells(Row, 1).Value = x
x = x + 1
End If
Next x
End Sub

При выполнении выделяет Constni = 150. Помогите, в чём ошибка?