Nigel

Try this - assuming the cells to have borders applied are already
selected.

With Selection.Borders
.LineStyle = xlContinuous
.Weight = xlThin
.ColorIndex = xlAutomatic
End With

Regards

Murray