Do you mean you wish to highlight the active cell as you change selection?

i.e. just active cell is red.

Private Sub Worksheet_SelectionChange(ByVal Target As Excel.Range)
Static OldCell As Range
If Not OldCell Is Nothing Then
OldCell.Interior.ColorIndex = xlColorIndexNone
End If
Target.Interior.ColorIndex = 3
Set OldCell = Target
End Sub

Note: this is sheet event code. Right-click on the sheet tab and "View Code".

Copy/paste into that module.

If not what you're looking for, post back.


Gord Dibben MS Excel MVP


On Thu, 9 Mar 2006 08:42:19 -0600, jamex
wrote:


How to change active cell color as red or any?