How about

Sub doborders()
Selection.Borders.Weight = xlMedium 'Thick
End Sub

--
Don Guillett
SalesAid Software

"robinsongary" wrote in message
...
Excel provides a number of options for creating borders around selected
cells, but does not do a good job at allowing you to automatically format
colums with borders. For example, if are working with Columns A-B-C and
rows
2-10 and want to put a border around each column (A2-A10, B2-B10, and
C2-C10), you have to select each column and select the "box" border. What
would be great is if there was a button that you could push that would do
this for you, like when you select a group of cells and want every cell in
that group to have a border.

----------------
This post is a suggestion for Microsoft, and Microsoft responds to the
suggestions with the most votes. To vote for this suggestion, click the "I
Agree" button in the message pane. If you do not see the button, follow
this
link to open the suggestion in the Microsoft Web-based Newsreader and then
click "I Agree" in the message pane.

http://www.microsoft.com/office/comm...lic.excel.misc