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