Dim iCeldaAnterior As Integer
'Debes asignarle un valor a iCeldaAnterior apenas se abra el libro, preferiblemente la fila seleccionada
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Cells(iCeldaAnterior, 1).EntireRow.Interior.ColorIndex = xlColorIndexNone
Target.EntireRow.Interior.ColorIndex = 9
iCeldaAnterior = Target.Row
End Sub