Borders Rotating 90 Degrees

[Youngergirl44]

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?!

 

[Don Guillett]

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