Back

Note - this code is inserted in the worksheet's code (accessed by right clicking on the worksheet's tab and selecting view code).

Private Sub Worksheet_SelectionChange(ByVal Target As Excel.Range)
Cells.Interior.ColorIndex = -4142
With Target.Interior
.ColorIndex = 6
End With
End Sub

Copyright ^© 2001 by Barrie R. Davidson
Added November, 2001