通过宏改变excel一行的字体颜色解决办法

通过宏改变excel一行的字体颜色
主要问题是我如果把这行改为黑色背景，那一定要把原先的黑色字体该为白色，改背景色已经参考过了，但是该字体不行，大家帮我改改代码

Sub   color()
Dim   index   As   Integer  
        Dim   strRange   As   String  
            For   index   =   1   To   10000
                strRange   =   "E "   +   CStr(index)  
                srtIndex   =   CStr(index)   +   ": "   +   CStr(index)
                If   (Range(strRange).Value   =   "1 ")   Then
                        Rows(srtIndex).Select
                        With   Selection.Interior
                                .ColorIndex   =   1       '1为黑色
                                .Pattern   =   xlSolid
                    End   With
                End   If
        Next
End   Sub
这个代码每问题，但是不知如何改变字体颜色


------解决方案--------------------------------------------------------
Selection.Font.ColorIndex = 2