Hi Phil,

Am Fri, 26 Apr 2013 08:24:33 +0100 schrieb Phil Kirby:

In 2007 anyone know how to make a selected column darker so as to make a
found cell using Find & Replace more visable
The shading is so light I can hardly see the highlighted cells

try:
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Dim myRange As Range

With ActiveSheet
Set myRange = Intersect(Target.EntireColumn, .UsedRange)
.UsedRange.Interior.ColorIndex = xlNone
myRange.Interior.ColorIndex = 15
End With
End Sub

Put the code in the code module of the expected sheet


Regards
Claus Busch
--
Win XP PRof SP2 / Vista Ultimate SP2
Office 2003 SP2 /2007 Ultimate SP2

Cheers Claus,
Although I appreciate a macro on each woksheet would work but that will restrict it
There must be a way to default in the display properties somewhere

Anyone??

On Fri, 26 Apr 2013 10:16:16 +0100, Phil Kirby
wrote:


Claus Busch;1611412 Wrote:
Hi Phil,

Am Fri, 26 Apr 2013 08:24:33 +0100 schrieb Phil Kirby:
-
In 2007 anyone know how to make a selected column darker so as to make
a
found cell using Find & Replace more visable
The shading is so light I can hardly see the highlighted cells-

try:
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Dim myRange As Range

With ActiveSheet
Set myRange = Intersect(Target.EntireColumn, .UsedRange)
.UsedRange.Interior.ColorIndex = xlNone
myRange.Interior.ColorIndex = 15
End With
End Sub

Put the code in the code module of the expected sheet


Regards
Claus Busch
--
Win XP PRof SP2 / Vista Ultimate SP2
Office 2003 SP2 /2007 Ultimate SP2

Cheers Claus,
Although I appreciate a macro on each woksheet would work but that will
restrict it
There must be a way to default in the display properties somewhere

Anyone??


Give it a range name, and when referenced in/with 'select', it will
always be the expected "highlighted area".

Picking it from the drop down list of named ranges up in the upper left
corner of the worksheet takes you there instantly, fully and properly
highlighted, with absolute and "high" confidence.