Select Successive Rows

[Floydlevedale]

Hi All

Would like a a Macro that selects every tenth row in a worksheet starting from the 5th row. So, the selected rows would be 5,15,25,35 etc

Thanking you in advance

Floyd

[patel45]

Sub Macro1()
For j = 5 To 45 Step 10 ' 
  st = st & "A" & j & ","
Next
st = st & "A" & j
Range(st).Select
End Sub

[Floydlevedale]

Hi Patel

Thanks for the response, but the Macro only selects cells in Column A, need it to select the entire row.

[patel45]

Sub Macro1()
For j = 5 To 45 Step 10 '
  st = st & "A" & j & ","
Next
st = st & "A" & j
Range(st).EntireRow.Select
End Sub

[Floydlevedale]

Thanks Patel, working well.