Limit Row and Column Highlight

[Bill]

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

 

[Bob Phillips]

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)

 

[Tom Ogilvy]

With cells(Target.Row,"A").Resize(1,9)
.FormatConditions.Add Type:=xlExpression, Formula1:="TRUE"
.FormatConditions(1).Interior.ColorIndex = 37
End With

With cells(3,Target.Column).Resize(8,1)
.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