Try this:

Sub InsertBorderline()
StartLine = 20
EndLine = 100

For r = StartLine To EndLine Step 20
With Rows(r).Borders(xlEdgeBottom)
.LineStyle = xlContinuous
.Weight = xlThin
.ColorIndex = xlAutomatic
End With
Next
End Sub

Regards,
Per

"Adamp" skrev i meddelelsen
...
I need a macro for inserting a border line every 20 rows. i have tried to
record this, but I went wrong. Very wrong. It's a bottom border line.
(I
posted this before, but now I cannot find it). Thanks