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?