Well...I found and tweaked something I found via Google to mark the rows every 17th row.
I'm doing this to get a random sample of employees that will eventually be asked to complete a job satisfaction survey. I figured this would be a quick way to do it - and it was.
Code:
Sub markRow()
Dim i As Integer
For i = 10 To 7200 Step 17
Range("A" & i).Select
Range("A" & i).Value = "participant"
Next i
End Sub
This site uses cookies to help personalise content, tailor your experience and to keep you logged in if you register.
By continuing to use this site, you are consenting to our use of cookies.