为什么这不起作用？ （VBA）

Question

我很欣赏这是非常基本的，但我已经尝试过调试，我无法弄清楚为什么'Number1'在第4行运行后没有为它分配一个数字。它保持为零。目前，当我运行所有细胞时，标记为绿色。

Sub Colour()

    Dim Number1 As Long

    For i = 17 To 32

        Number1 = Cells(i, 12).Value

        If Number1 < Cells(i, 6).Value And Number1 > Cells(i, 5).Value Then

        Cells(i, 12).Interior.ColorIndex = 3

    Else

        Cells(i, 12).Interior.ColorIndex = 4

    End If

        Next i


    End Sub