Sombrear filas alternas

Probá con el siguiente códio de VBA:

Sub Resaltar()
' Resaltar Macro
' Macro grabada el 03/02/2004 por David García
x = 0
Do While x = 0
ActiveCell.Rows("1:1").EntireRow.Select
With Selection.Interior
.ColorIndex = 6
.Pattern = xlSolid
End With
ActiveCell.Offset(2, 0).Select
If IsEmpty(ActiveCell.Value) Then
x = 1
End If
Loop
End Sub

Hola a todos:

Quisiera saber si es posible y cómo hacer que en una

tabla de excel con

muchas filas pueda sombrear de forma alterna una fila sí

y la otra no de una

selección de filas en vez de hacerla una a una. Uso excel

2000.

Muchas gracias y saludos del
Dr. Nemo


.