Bill,

Is this what you want

Cells.FormatConditions.Delete
If Not Intersect(Target, Range("A3:J10")) Is Nothing Then
With Range("A" & Target.Row).Resize(1, 10)
.FormatConditions.Add Type:=xlExpression, Formula1:="TRUE"
.FormatConditions(1).Interior.ColorIndex = 37
End With

With Cells(3, Target.Column).Resize(8)
.FormatConditions.Delete
.FormatConditions.Add Type:=xlExpression, Formula1:="TRUE"
.FormatConditions(1).Interior.ColorIndex = 37
End With


With Target
.FormatConditions.Delete
.FormatConditions.Add Type:=xlExpression, Formula1:="TRUE"
.FormatConditions(1).Interior.ColorIndex = 36
End With
End If


--

HTH

Bob Phillips

(remove nothere from the email address if mailing direct)

"Bill" wrote in message
...
How can I adjust the following code that is used to create highlight cross
hairs so that only the column cells from rows 3 to row 10 and that the row
is
ony hightlight from column A to I.


With Target.EntireRow
.FormatConditions.Add Type:=xlExpression, Formula1:="TRUE"
.FormatConditions(1).Interior.ColorIndex = 37
End With

With Target.EntireColumn
.FormatConditions.Delete
.FormatConditions.Add Type:=xlExpression, Formula1:="TRUE"
.FormatConditions(1).Interior.ColorIndex = 37
End With


With Target
.FormatConditions.Delete
.FormatConditions.Add Type:=xlExpression, Formula1:="TRUE"
.FormatConditions(1).Interior.ColorIndex = 36
End With


Thanks

Bill