dar un color a una rango cuando una celda esté activa

Asigna un nombre a tu rango, por ejemplo "MiRango". Luego, desde el editor
de VBA, haces doble clic en la hoja que contiene la celda que mencionas
(supondré que es A1), y pegas el siguiente código:

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Target.Address = "$A$1" Then
Range("MiRango").Interior.ColorIndex = 40
Else
Range("MiRango").Interior.ColorIndex = 0
End If
End Sub




"Jose Soler" escribió:

Hola al foro:

¿podría alguien decirme como dar un color de fondo a un rango cuando una
celda concreta sea la celda activa, es decir, cuando esta celda esté
seleccionada?.

Gracias a todos por vuestra atención

Salu2

José