Resaltar fila y columna

Hola, JHOAKIN !

Con este codigo resalto la fila donde me posiciono
que me le hace falta para que resalte la columna tambien...

1) ya habras notado que estas 'perdiendo' la caracteristica del des-hacer, undo, ctrl+Z :-((
2) prueba aplicando formatos condicionales -> a tu rango de celdas 'A7:L15000' usando lo siguiente:
a) condicion1 -> por formula
b) formula: -> =o(celda("fila")=fila(),celda("columna")=columna())
c) formato... -> aplica los formatos de tu preferencia, colores, bordes, etc.
3) 'apoyate' un poco con macros... copia/pega las siguientes lineas:
-> en el modulo de codigo de 'esa' hoja...
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
[a1].Calculate
End Sub

nota: si al modelo 'le afecta' que en cada cambio de seleccion se re/calcule la celda 'A1'...
cambia la instruccion a: -> Application.ScreenUpdating = True

y toma en cuenta que mi sistema usa como separador de argumentos a la coma ',' NO al punto y coma ';' :D

si cualquier duda [o informacion adicional]... comentas ?
saludos,
hector.

__ el codigo expuesto __

Option Explicit
Private Sub Worksheet_Calculate()
Resalta
End Sub
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Resalta
End Sub
Private Sub Resalta()
Dim R As Long
Dim C As Long
Dim X As String
R = ActiveCell.Row
C = ActiveCell.Column
If R < 7 Or R > 15000 Or C > 12 Then
Range("a7:L15000").Interior.ColorIndex = 36
Exit Sub
Else
Range("a7:L15000").Interior.ColorIndex = 36
Range("a" & R & ":L" & R).Interior.ColorIndex = 27
End If
End Sub