Sub SelectEverySecondRow()

StepR = 2
your_str = ""

For i = ActiveCell.Row + StepR To Cells.SpecialCells
(xlCellTypeLastCell).Row Step StepR
 your_str = your_str & i & ":" & i & ","
Next
your_str = Left(your_str, Len(your_str) - 1)
Range(your_str).Select

End Sub

Gilad

Sent via Deja.com http://www.*-*-*.com/
Before you buy.