pintar filas impares de un rango de celdas

Estimados amigos,
Este es mi primer aporte al grupo. Es algo muy sencillo, pero
personalmente me sirve mucho. Lo uso principalmente cuando imprimo
grandes tablas, y necesito alinear a primera vista, los datos de una
fila.
Basicamente lo que hace, es recorrer las filas de un rango de celdas
previamente seleccionadas, y pinta de un color gris las que son
impares.

Espero les interese,
Y TENGAN TODOS UN MUY BUEN AÑO!!!

Ahi va:

Sub PintaFilasImpares()
'q hace: pinta de color gris las filas impares de un rango de celdas
'
'
Dim RangoCeldas As Range 'rango de celdas
Dim FilaEnRango As Range 'fila a pintar en el
rango de celdas
Dim i As Integer 'contador de filas

Set RangoCeldas = Selection 'rango de celdas
seleccionadas
i = 1 'inicializa para la
primera fila
For Each FilaEnRango In RangoCeldas.Rows 'por cada fila del
rango
If Not (i Mod 2 = 0) Then 'si la fila es impar
FilaEnRango.Interior.ColorIndex = 40 'rellena el fondo de
la fila con un color gris
End If
i = i + 1 'incrementa para la
siguiente fila
Next FilaEnRango 'siguiente fila del
rango
Set RangoCeldas = Nothing 'libera referencia a
la variable
Set FilaEnRango = Nothing 'libera referencia a
la variable
End Sub