Selección de filas impares y pares por separado

Saludos:

He estado buscando la manera de seleccionar sólo las filas pares o sólo las
filas impares de una hoja de alguna forma que no involucre usar VBA. Si alguien
puede indicarme cómo hacer esto se lo agradecería.

Sin embargo, estuve pensando en una macro, que me hace dicha selección. La idea
es que quiero aplicar un formato diferente a las filas pares que a las impares.
La macro es la siguiente, sin embargo, es muy lenta, pues requiero seleccionar
un rango de hata 7500 celdas. Quisiera por favor recibir sugerencias para
hacerla más rápida.

'en rgRango1 devuelvo la selección de las filas pares
'en rgRango2 obtendría la selección de las filas impares

Sub rangos()
Dim rgRango1 As Range, rgRango2 As Range
Dim stRango As String
Set rgRango1 = Range("A1")
Set rgRango2 = Range("A2")
For i = 1 To 6200
strRango = "A" & CStr(i) ":B" & CStr(i)
'seleccionar rango impares o rango pares
If i mod 2 = 0 Then
Set rgRango2 = Union(rgRango2,Range(strRango))
Else
Set rgRango1 = Union(rgRango1,Range(strRango))
End If
Next i
' aqui hago la modificación de formato
'a cada uno de los rangos
end Sub



Gracias por su ayuda
Saludos