Setting borders with a macro

[orquidea]

Hi

I recorded the below macro to set borders for each cell in a range. I just
think this macro could be shorter. I tried a few options buy they didn't
work. Could anyone help me to make it shorter.

Selection.CurrentRegion.Select


With Selection.borders(xlEdgeLeft)
.Weight = xlThin
.ColorIndex = xlAutomatic
End With
With Selection.borders(xlEdgeTop)
.Weight = xlThin
.ColorIndex = xlAutomatic

End With
With Selection.borders(xlEdgeBottom)

.Weight = xlThin
.ColorIndex = xlAutomatic
End With
With Selection.borders(xlEdgeRight)

.Weight = xlThin
.ColorIndex = xlAutomatic
End With
With Selection.borders(xlInsideVertical)

.Weight = xlThin
.ColorIndex = xlAutomatic
End With
With Selection.borders(xlInsideHorizontal)

.Weight = xlThin
.ColorIndex = xlAutomatic
End With
Thanks,

Orquidea

 

[Jim Thomlinson]

You could use just this one line for the whole thing...

Selection.Borders.Weight = xlThin

 

[orquidea]

Thanks for your help

You could use just this one line for the whole thing...

Selection.Borders.Weight = xlThin