type mismatch

[4anae6]

Добрый вечер.

Написал вот такой вот макрос:

Private Sub Worksheet_Change(ByVal Target As Range)
Dim x As Integer
Dim y As Integer
For x = 1 To 5
y = x - 1
If Not Intersect(Target, Range("A1")) Is Nothing Then
If Cells(1, 2).Value = x Then
Rows("4:5+y").Hidden = False
Rows("5+x:10").Hidden = True
End If
End If
Next x
End Sub

После запуска выскакивает ошибка в строке, которая начинается с Rows, хоте вроде бы по правилом написано, даже с запасом. В чем я допустил прощет?

[RAN.]

ПроСЧет тут

Rows("4:" & 5+y).Hidden = False