try

Sub bottomborder()
ActiveCell.Borders(xlEdgeBottom).Weight = xlThick 'xlmedium or xlthin
End Sub

--
Don Guillett
SalesAid Software

"Dawn" wrote in message
...
In Word you can change the thickness of the line used in boarders - but I
can
not change the thickness in Excel. Is there any way to do this? Thanks.