excel中用vb编辑隐藏功能的问题？？

Question

Private Sub Worksheet_Activate()Sheets("sheet1").Cells.Font.ColorIndex = 2 '设置文字颜色为白色
    If Sheets("sheet2").Cells(1, 1) = 123 Then
    Range("A1").Select
    ActiveSheet.Cells.Font.ColorIndex = 56
    ' 设置文字颜色为黑色    End IfEnd Sub
用excel中带的visual basic编辑器写了如上的一段代码，但不足的地方是圈定一定范围的单元格后，因为圈中的范围底色不是白色的，白色的字就显示出来了，要如何编辑才能使我们要隐藏的内容字体颜色随底色变化和变化？？？

Answer 1

For Each cl In Sheets("sheet1").UsedRange.Cells
    If cl.Interior.ColorIndex = -4142 Then
    cl.Font.ColorIndex = 2
    Else
    cl.Font.ColorIndex = cl.Interior.ColorIndex
    End If
    Next