stuck on code to loop through every nth row cells

[rcr1991]

I am a total coding amateur so please don't be too harsh--this is my first time posting my rudimentary code.

Problem is outlined below:

Sub Macro1()
LastRow = Cells(Rows.Count, 2).End(xlUp).Row
RptRows = LastRow / 5
Rows("5:5").Select
For x_rpts = 1 To RptRows

'now i need to start at current row, always row 5, and add 4 to row number, go to that row, select it, and make it bold
'then repeat from current row, go down four rows and repeat RptRows # times--the looping actually works--just stuck on the code to get row number, add 4 to it and move on

Next x_rpts
End Sub

 

[Nimrod]

Using Step 5 to make every 5th line bold..

Public Sub MakeBold()
For Rw = 5 To Cells(65536, 2).End(xlUp).Row Step 5
    Cells(Rw, 1).EntireRow.Font.Bold = True
Next Rw
End Sub

HINT: Step 5 tells the "For" to loop by every 5th iteration. Which , in this case would mean Rw = 5,10,15,20....etc..


FURTHER EXAMPLES...(of using Step)

Public Sub CountUp()
For lp = 1 To 10 Step 2
    MsgBox lp
Next lp
End Sub

Public Sub CountDown()
For lp = 10 To 1 Step -2
    MsgBox lp
Next lp
End Sub

 

[rcr1991]

thanks! setp works great. adnd it is pretty adaptable when data is symmetric.