Sub docustomborder()
With Selection
.Borders(xlInsideHorizontal).LineStyle = xlContinuous
.Borders(xlInsideVertical).LineStyle = xlContinuous
.Borders(xlInsideVertical).Weight = xlMedium
End With
End Sub

--
Don Guillett
Microsoft MVP Excel
SalesAid Software

"Youngergirl44" wrote in message
...
I have a spreadsheet in which I'm trying to add cell borders to several
cells
at once - horizontal borders between each row, darker vertical borders
between each column.

When I select the cells and select the dark vertical border (using right
click and 'format cells'), I get a dark horizontal border between each row
instead of a vertical border. If I select a horizontal border, it becomes
a
vertical border. When I go back into 'format cells', the border settings
reflect what's appearing on the screen, not what selection I made
previously.
If I select the cells one at a time, the borders will appear correctly.

I'm using Excel 2003 on Windows XP. It's just happening to this workbook
only and there are no macros in the workbook (I double checked). Any
ideas?!