请教一句条件语句的写法

gpgpgp

对一个工作表中，获取单元格中填充颜色为红色的条件语句用以下的方法通过：

    Dim rng As Range, c As Range
    Set rng = Sheets(3).UsedRange
    For Each c In rng.Cells
    If c.Interior.ColorIndex = 3 Then MsgBox "B"
    Next

现请教我想实现的是：

如果：用“条件格式”后产生的单元格中出现填充颜色为红色　ＴＨＥＮ

　　　用ＭＳＧＢＯＸ列出出现填充颜色为红色的单元格的地址

否则：msgbox "没有错误！"

老鬼

你何苦如此呢，把条件格式中的“条件”直接写到代码中不是更好判断吗？