（“VBA菜鸟求救”）‘’‘’‘大哥大姐们速来

这段程序
Sub test()
Dim x As Integer
For x = 69 To 79 Step 1
If Range("a" & x).Value < 0 Then
Range("b" & x) = Negative
ElseIf Range("a" & x).Value = 0 Then
Range("b" & x) = zero
ElseIf Range("a" & x).Value > 0 Then
Range("b" & x) = positive
End If
Next x
End Sub
错在哪里？？执行没反应。。。。