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