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)

"Bill" <[email protected]> wrote in message
news:[email protected]...
> 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

[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

--
Regards,
Tom Ogilvy


"Bill" <[email protected]> wrote in message
news:[email protected]...
> 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