Change the font color
Sub Change_The_Font_Color()
Sheet2.Range("D3").Font.ColorIndex = 9
Sheet2.Range("D3:E6").Font.ColorIndex = 9
Sheet2.Range("D3:E6").Font.ColorIndex = 1
Sheet2.Range("D3:D4, E6:E7, F3:F4").Font.ColorIndex = 9
Sheet2.Range("D3:F8").Font.ColorIndex = 1
End Sub
Sub Change_The_Font_Color_Using_Cells_Property()
Sheet2.Cells(4, 4).Font.ColorIndex = 9
Sheet2.Range(Cells(4, 4), Cells(5, 6)).Font.ColorIndex = 9
Sheet2.Range("D3:F8").Font.ColorIndex = 1
End Sub