I can set a border with:
Dim rnge3 as Range
Dim rowstart as Integer, rowend as Integer
set rnge3 = Worksheets(3).Range("A" & rowstart & ":AU" & rowend)
With rnge3.Borders(xlEdgeBottom)
.LineStyle = xlContinuous
.Weight = xlMedium
.ColorIndex = 3
End With
But when I want to clear that...