Esta es una forma facil de pintar la fila activa en Excel mediante VBA
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Rem conseguimos la ultima celda ocupada de la columna A
uf = Range("A" & Rows.Count).End(xlUp).Row
Rem trabajaremos con Target/Objetivo
With Target
Rem si la columna activa se localiza despues de la columna E
Rem si la fila activa es menor que 5
Rem si la fila activa es mayor que uf (ultima fila ocupada)
Rem >>> entonces salir de la rutina
If .Column > 5 Or .Row < 5 Or .Row > uf Then Exit Sub
Rem trabajando con el rango Range("A5:E" & uf)
With Range("A5:E" & uf)
Rem ningun color
.Interior.ColorIndex = xlNone
Rem negrita desactivada
.Font.Bold = False
End With
Rem trabajar con la celda/fila activa
With Range(Cells(.Row, 1), Cells(.Row, 5))
Rem color a 6 (amarillo)
.Interior.ColorIndex = 6
Rem negrita activada
.Font.Bold = True
End With
End With
End Sub
Espero que sea de mucha utilidad
Saludos desde Honduras