try:

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Target = Columns("G:L")
If Target.Value < 1 Then
*Target*.Font.ColorIndex = 3
End If
End Sub


It would however be handier to use the Conditional Format tool. Select
Columns G:L and in the "Formula Is" appropriate box, type in =G1<1;
Choose format option to suit.


--
davidm
------------------------------------------------------------------------
davidm's Profile: http://www.excelforum.com/member.php...o&userid=20645
View this thread: http://www.excelforum.com/showthread...hreadid=373448