我在EXCEL2007中的录制宏得到以下代码：

Sub Macro1()
'
' Macro1 Macro
'

'
    Cells.Find(What:="", After:=ActiveCell, LookIn:=xlFormulas, LookAt:= _
        xlPart, SearchOrder:=xlByRows, SearchDirection:=xlNext, MatchCase:=False _
        , MatchByte:=False, SearchFormat:=True).Activate
End Sub

在对话框里有格式选项里可以选红色。
至于EXCEL2003......根据字体颜色遍历单元格是不是可行？