Setting borders with a macro
 

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

Setting borders with a macro
 

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

Selection.Borders.Weight = xlThin

--
HTH...

Jim Thomlinson


"orquidea" wrote:

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

Setting borders with a macro
 

Thanks for your help

"Jim Thomlinson" wrote:

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

Selection.Borders.Weight = xlThin

--
HTH...

Jim Thomlinson


"orquidea" wrote:

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