Chip wrote in message ...
Range("$C$5").Select
ActiveCell.Value = "Current Configuration"

With Selection
.Font.Bold = True
.HorizontalAlignment = xlLeft
With .Borders(xlEdgeRight)
.LineStyle = xlContinuous
.Weight = xlMedium
.ColorIndex = xlAutomatic
End With
End With


Thank you very much Chip.

Best regards,
Kevin