Hi,
I have a couple of rows (which change in numbers of rows when I use another
macro) and I want to put a double line at the bottom of the last row. I used
the recorder to find the beginning of my code and then I modified it for my
specific needs. But it says that the method Range of the object '_Global'
failed. I need my line to be drawn from colomn A to AE. Does anyone see where
is the problem in my code?
Thx!
JJD
Quote:
Sub Draw_Double_Line()
'Line that find the number of rows.
Let lstRw = Sheets("Formulaire").Range("a65536").End(xlUp).Row
With Worksheets("Formulaire")
Range("A:AE" & lstRw).Borders(xlDiagonalDown).LineStyle = xlNone
Range("A:AE" & lstRw).Borders(xlDiagonalUp).LineStyle = xlNone
Range("A:AE" & lstRw).Borders(xlEdgeLeft).LineStyle = xlNone
Range("A:AE" & lstRw).Borders(xlEdgeTop).LineStyle = xlNone
With Range("A:AE" & lstRw).Borders(xlEdgeBottom)
.LineStyle = xlDouble
.Weight = xlThick
.ColorIndex = 1
End With
Range("A:AE" & lstRw).Borders(xlEdgeRight).LineStyle = xlNone
End With
End Sub
|
--
Message posted via
http://www.officekb.com