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