Select Successive Rows

Hi All

I need a Macro that will select every tenth row in a worksheet, beginning with the 5th Row, so the selected Rows should be 5,15,25,35,45,55...........

Thanks in advance

Walter

Nick's picture

Select alternate rows

Sub SelectEveryNthRow()
 
SelectionRow = 5
N = 10
Set SelectionRange = Rows(SelectionRow).EntireRow
EndRow = ActiveSheet.UsedRange.Rows.Count
While SelectionRow < EndRow
 SelectionRow = SelectionRow + N
 Set SelectionRange = Union(SelectionRange, Rows(SelectionRow).EntireRow)
 
Wend
SelectionRange.Select
End Sub