Coloca esto en el modulo de la hoja donde desees resaltar la celda activa. Si finalemente insistes en que sea toda la fial, pues, modifica el codigo:
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
' variable estatica que conservara la direccion de la celda que "deseleccionas"
Static oldrng As String
' esta linea previene la primera ejecucion en que la "oldrng" es vacio
On Error Resume Next
' despintas la celda que "deseleccionas" (o la pintas si quieres)
Range(oldrng).Interior.ColorIndex = xlNone ' .Color = RGB(255, 255, 255)
With Target
.Interior.Color = RGB(255, 255, 220) ' pintas la celda
oldrng = .Address ' obtienes la direccion de la celda seleccionada
End With
End Sub
Abraham
PD: No recuerdo quien lo hizo :(
