That was too easy. Thanks!! Works like a charm. All I did was change it
from column E to Z.
--
Thanks,

Adam P


"Dave Peterson" wrote:

Set wks = Activesheet

Adamp wrote:

Is there a way to get the wks variable to change to the active worksheet?
This is quite helpful even if this cannot be done.
--
Thanks,

Adam P

"Dave Peterson" wrote:

I'm not sure what is the first row to get the border or what columns should get
the border, but this may give you a start:

Option Explicit
Sub testme()

Dim wks As Worksheet
Dim iRow As Long
Dim FirstRow As Long
Dim LastRow As Long
Dim EveryXRows As Long
Dim RngToGetBorder As Range

Set wks = Worksheets("sheet1")
EveryXRows = 20

With wks
Set RngToGetBorder = .Range("A:E")
FirstRow = 20

With .UsedRange
LastRow = .Cells(.Cells.Count).Row
End With

For iRow = FirstRow To LastRow Step EveryXRows
With Intersect(.Rows(iRow), RngToGetBorder)
With .Borders(xlEdgeBottom)
.LineStyle = xlContinuous
.Weight = xlThin
.ColorIndex = xlAutomatic
End With
End With
Next iRow
End With
End Sub

And if you're looking for old posts:

You can use google (maybe a few hours behind) to search for stuff you've posted
(and find the replies, too)

http://groups.google.com/advanced_group_search
http://groups.google.com/advanced_gr...Excel*&num=100

Ron de Bruin has an excel addin that you may like:
http://www.rondebruin.nl/Google.htm

Adamp wrote:

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

--

Dave Peterson


--

Dave Peterson