This is what i have & it works it is high lighting B cells column now i want
to
high light AH cells column at the same time & from there i need to do rows
43 to 74 ,80 to 111,117 to 148,154 to 185,191 to 222, 228 to 259 also in the
same
manner also B & AH columns have a conditional colour format red green or
yellow when these colours are in place it will not high light i believe if
you or someone can make this happen YOU MUST BE A GOD


Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Dim Data As Range
Dim i As Integer
Dim j As Integer
Dim K As Integer
i = 2
j = 6
K = ActiveCell.Column()
Set Data = Range("B6:AH37")

Data.Interior.ColorIndex = xlNone

If ActiveCell.Row < 6 Or ActiveCell.Row 37 Or _
ActiveCell.Column < 2 Or ActiveCell.Column 54 Then
Exit Sub
End If

ActiveCell.Offset(0, -(K - i)). _
Resize(1).Interior.ColorIndex = 40

End Sub

If you have a conditional format on the cells and you want to add a different
"interior color", that color will only display if no conditions are met.

I think this is what you're looking for

Sub Test()

Dim aWS As Excel.Worksheet
Dim myRange As Excel.Range
Set aWS = ActiveSheet
Set myRange = aWS.Range("43:74,80:110, 117:148, 154:185, 191:222, 228:259,
AH:AH")

myRange.Interior.ColorIndex = 40
End Sub

--
HTH,

Barb Reinhardt



"Mike" wrote:

This is what i have & it works it is high lighting B cells column now i want
to
high light AH cells column at the same time & from there i need to do rows
43 to 74 ,80 to 111,117 to 148,154 to 185,191 to 222, 228 to 259 also in the
same
manner also B & AH columns have a conditional colour format red green or
yellow when these colours are in place it will not high light i believe if
you or someone can make this happen YOU MUST BE A GOD


Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Dim Data As Range
Dim i As Integer
Dim j As Integer
Dim K As Integer
i = 2
j = 6
K = ActiveCell.Column()
Set Data = Range("B6:AH37")

Data.Interior.ColorIndex = xlNone

If ActiveCell.Row < 6 Or ActiveCell.Row 37 Or _
ActiveCell.Column < 2 Or ActiveCell.Column 54 Then
Exit Sub
End If

ActiveCell.Offset(0, -(K - i)). _
Resize(1).Interior.ColorIndex = 40

End Sub