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>

Try this idea. Modify to suit

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

Don Guillett
SalesAid Software
(E-Mail Removed)
"sugargenius" <(E-Mail Removed)> wrote in message
news:(E-Mail Removed)...
> 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 wrote:
> Try this idea. Modify to suit
>
> Sub bordernoncontiguous()
> Range("a3,a7,a12").Borders.Weight = xlThick
> End Sub
> --
>
> Don Guillett
> SalesAid Software
> (E-Mail Removed)

Thanks Don, that worked perfectly

Glad to help.

--
Don Guillett
SalesAid Software
(E-Mail Removed)
"sugargenius" <(E-Mail Removed)> wrote in message
news:(E-Mail Removed)...
>
> Don Guillett wrote:
>> Try this idea. Modify to suit
>>
>> Sub bordernoncontiguous()
>> Range("a3,a7,a12").Borders.Weight = xlThick
>> End Sub
>> --
>>
>> Don Guillett
>> SalesAid Software
>> (E-Mail Removed)
>
> Thanks Don, that worked perfectly
>