通过宏改变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