基于IF的VBA颜色突出显示

Question

所以我想尝试运行下面的代码。它应该是直截了当的，我不明白它为什么不起作用。如果单元格b2是＆＃34; John＆＃34;，并且单元格O2是空的，那么O2应该是红色的。如果O2不为空，则不应着色。

必须得到任何帮助。

Sub columnO(d As Long)

If Cells(d, "B") = "John" And Cells(d, "O") = "" Then    
    Cells(d, "O").Interior.Color = RGB(255, 0, 0)
Else
    Cells(d, "O").Interior.Color = RGB(1000, 1000, 1000)
End If

End Sub

Private Sub Worksheet_Change(ByVal Target As Range)

If Not Application.Intersect(Range("B10:O10000"), Target) Is Nothing Then
    columnO Target.Row
End If

End Sub