Hi All
To format the outer borders of a selection, I use this code:

A = 3
Range("C34:J42").Select
With Selection.Borders(xlEdgeLeft)
.LineStyle = xlContinuous
.Weight = xlMedium
.ColorIndex = A
End With
With Selection.Borders(xlEdgeTop)
.LineStyle = xlContinuous
.Weight = xlMedium
.ColorIndex = A
End With
With Selection.Borders(xlEdgeBottom)
.LineStyle = xlContinuous
.Weight = xlMedium
.ColorIndex = A
End With
With Selection.Borders(xlEdgeRight)
.LineStyle = xlContinuous
.Weight = xlMedium
.ColorIndex = A
End With

It's very cumbersome, but I have had no success trying to compact it.
Is it possible to combine the 4 borders into a single statement, and then
apply the 3 format lines just once?

Regards - Dave.