Highlighting Selected Cells

[Excel9925]

I never liked the black print on very light gray interior for selected cells that is the default for Excel 2007.

I found a cool procedure in an old post on this site to change the color of cells selected in a worksheet. I'd love to make this the default for all sheets and workbooks. Is there any way to do this?

(I had done one change (involving the Registry) that I found in a book I have, which changes the highlighted cells to an interior color of black with white text, but it's too dark to read easily. I would have really loved an interior color of medium gray with black type, but the only results I could get by altering the numbers in the Registry version was the Excel defaults or the white text on black interior.)

The code that works for a worksheet is below.


Public OldRng As Range

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Not OldRng Is Nothing Then
OldRng.Interior.ColorIndex = xlNone
End If
Target.Interior.ColorIndex = 6
Set OldRng = Target
End Sub

 

[ziad alsayed]

welcome on board.

put it in workbook code and not worksheet

Public OldRng As Range
Private Sub Workbook_SheetSelectionChange(ByVal Sh As Object, ByVal Target As Range)
If Not OldRng Is Nothing Then
OldRng.Interior.ColorIndex = xlNone
End If
Target.Interior.ColorIndex = 6
Set OldRng = Target
End Sub

hope this will help.

 

[Excel9925]

Thanks for the reply. That worked for all sheets in a workbook. Now, is there a way to make it work for any workbook that is opened?

 

[ziad alsayed]

May be there is but i don't know it .

Sorry