Hi,
Second question first:

Private Sub Worksheet_Change(ByVal Target As Range)
If Intersect(ActiveCell, Range("G1")) Is Nothing Then
If Not Range("G1").HasFormula Then
Range("G1").Font.ColorIndex = 3
Range("G1").Font.Bold = True
End If
End If
End Sub

First question: what range do you want? How many cells in your range?

Regards - Dave.