一个简单的宏，帮忙看下错在哪里

没肺没心

这是自己编写的一个简单的宏代码，但运行时说【对象不支持该属性或方法】，望各路豪杰不吝赐教。
代码目的：每隔一个单元格填充红色

Sub gai()
For i = 2 To 100
If WorksheetFunction.Mod(i, 2) = 0 Then Range("a" & i).Interior.Color = vbRed
Next i
End Sub

changxuegu

sub gai()
For i = 2 To 100
If i Mod 2 = 0 Then Range("a" & i).Interior.Color = vbRed
Next i
end sub

没肺没心

多谢楼上赐教，能否再告知我错误原因吗?我是调用工作表函数来做的，语法应该没错（个人认为而已） ，但为什么不能运行？

slhenry

编程问题到VBA版会多人回答。

没肺没心

好的，是个新手，不懂规矩，下次谨记