ошибка run time 13

[Kostya111]

помогите найти не соответствие
Sub laba()
dim x as integer,dim b as single,dim c as single,dim a as single,dim fx as single
x = inputbox("x=")
Sheets(Лист1).Cell(1,1) = x
b = 6*x*x
Sheets(Лист1).Cell(1,2) = b
c = b*b
Sheets(Лист1).Cell(1,3) = c
a = x*x+3*b*b*x*x - 3*b*b
Sheets(Лист1).Cell(1,4) = a
fx = a*a*b*b-c
Sheets(Лист1).Cell(1,5) = fx
end sub

[Aleksandr H.]

Sheets("Лист1").Cells(1, 1)

[Kostya111]

ничего не изменилось