Hi Paul,
me again.
Some bright spark in the office asked, with ref to the highlighting code you
supplied, if it was possible to adapt it to change from yellow to orange
after 3 weeks and then fom orange to red after 6 weeks. Column L is a date
field so perhaps this could be utilised?
Bit of a challenge!
Thanks
Jock


" wrote:

Hi
I'm with you now on the A to Z thing. You want

Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel
As Boolean)
Dim myRow As Range
If Not Intersect(Target, ActiveSheet.Columns("M")) Is Nothing Then
Set myRow = Target.offset(0,-12).Resize(, 26) 'go back to "A"
With myRow
If .Interior.ColorIndex = 6 Then
.Interior.ColorIndex = xlNone
Else
.Interior.ColorIndex = 6
End If
End With
End If
'Cancel = True
End Sub

The .ie is Ireland. My College can't give me a fake email for
newsgroup purposes. They get a lot of spam funnily enough...
regards
Paul

On May 14, 10:03 am, Jock wrote:
Hi,
What I was referring to in 'Q1' was that I would have liked cells A to Z
highlighted in a specific row when a cell in M is double clicked. What
happens is that the count of 26 cells starts from the column stated in the
code (M) and ends at AL. I got around this by using B rather than M, so that
B to Z are highlited.
In Q2, there were no border changes done by me to the standard 'new
worksheet' default ones. There is quite a lot of code for different things
within this workbook though, so perhaps they are interfering with your code
slightly: I have tested your codes in a blank workbook and they work fine.

Thanks for your help on this. The yellow highlighted stand out better than
the red bordered ones, I think. Brill

Where's 'ie' by the way (in your email addy)

Many thanks
Jock