border non-contiguous rows

[sugargenius]

I'm building a report and certain sub-total rows need top/bottom
border. The actual rows to be "bordered" will vary. I can border the
subtotals as I create them, but i thought it would tidier if I kept
track of the rows to be bordered and did them all at once. Is this
possible:

<pseudocode>
dim rowstoborder as string
rowstoborder = "5"
rowstoborder = rowstoborder & "," & "10"
rowstoborder = rowstoborder & "," & "20"

with rows( rowstoborder )
.Borders.LineStyle = xlNone
.Borders(xlEdgeTop).LineStyle = xlContinuous
.Borders(xlEdgeTop).Weight = xlThick
.Borders(xlEdgeBottom).LineStyle = xlContinuous
.Borders(xlEdgeBottom).Weight = xlThick
end with

</pseudocode>

 

[Don Guillett]

Try this idea. Modify to suit

Sub bordernoncontiguous()
Range("a3,a7,a12").Borders.Weight = xlThick
End Sub

 

[sugargenius]

Try this idea. Modify to suit

Sub bordernoncontiguous()
Range("a3,a7,a12").Borders.Weight = xlThick
End Sub
--

Don Guillett
SalesAid Software
(e-mail address removed)

Thanks Don, that worked perfectly

 

[Don Guillett]

Glad to help.