Otto

To outline each cell in selection.............

Sub Border_Cells()
With Selection
.Borders.LineStyle = xlContinuous
.Borders.Weight = xlThick
.Borders.ColorIndex = xlAutomatic
End With
End Sub

To outline around cells in selection.........

Sub Border_Cells22()
With Selection.Borders
.LineStyle = xlContinuous
.Weight = xlThick
.ColorIndex = xlAutomatic
End With
With Selection
.Borders(xlInsideVertical).LineStyle = xlNone
.Borders(xlInsideHorizontal).LineStyle = xlNone
End With
End Sub


Gord

On Sat, 23 Dec 2006 14:05:51 -0500, "Otto Moehrbach"
wrote:

Excel XP & Win XP
When I record a macro and place an outline border, the recorder of course
lays down a bunch of lines encompassing every facet of the border.
Is there a simple command to produce an outline border? Thanks for your
time. Otto