With Selection.Borders
.LineStyle = xlContinuous
.Weight = xlMedium
End With
With Selection
.Borders.LineStyle = xlContinuous
.Borders.Weight = xlMedium
.Borders(xlInsideVertical).LineStyle = xlNone
.Borders(xlInsideHorizontal).LineStyle = xlNone
End With
Range ('A1:A3').BorderAround xlDashDotDot, xlMedium, 15