M
Mike
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
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