默认黑色的,直接设置成黑色就行了吧
Sheets(1).Cells(2, "A").Font.Color = vbBlack
.font.colorindex=xlColorIndexAutomatic或.font.colorindex=xlColorIndexNone