For Each Subtotal/Bold, Add xlDouble
Give this a go.....
dim Rng as Range
For each Rng in Range("C1:C" &
Range("A1").SpecialCells(xlCellTypeLastCell).Row)
if rng.font.bold then
With rng.Borders(xlEdgeBottom)
.LineStyle = xlDouble
.Weight = xlThick
.ColorIndex = xlAutomatic
End With
end if
Next rng
HTH
Rob
"ryguy7272" wrote:
For each cell with bold text, which is actually a subtotal, how can I
underscore the cell, with double lines, and have the same, extending 8 cells
to the right of this? The subtotals are in column C. I figure it will be
something like this:
For each
With Selection.Borders(xlEdgeBottom)
.LineStyle = xlDouble
.Weight = xlThick
.ColorIndex = xlAutomatic
End With
Next
Ive done it before, on another project, but I cant find the code anywhere
in my library of code. Please help!
Thanks,
Ryan---
--
RyGuy
|