Additional formatting: font-, cell- and gridcolour

I have read about VBA codes to set the cell clour i.e:

Private Sub Worksheet_Change(ByVal Target As Range)
Dim icolor As Integer

If Not Intersect(Target, Range("A1:A10")) is Nothing Then
Select Case Target
Case 1 To 5
icolor = 6


Can sombody help me with the codes for font and grid colours?

Hi,

Selection.Font.ColorIndex = 3
Selection.Interior.ColorIndex = 6
ActiveWindow.GridlineColorIndex = 8

HTH
Carim