Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Count = 1 Then
If Not IsEmpty(Target) Then
Target.Borders.Weight = 1
Else
With Target
.Borders(xlDiagonalDown).LineStyle = xlNone
.Borders(xlDiagonalUp).LineStyle = xlNone
.Borders(xlEdgeLeft).LineStyle = xlNone
.Borders(xlEdgeTop).LineStyle = xlNone
.Borders(xlEdgeBottom).LineStyle = xlNone
.Borders(xlEdgeRight).LineStyle = xlNone
.Borders(xlInsideVertical).LineStyle = xlNone
.Borders(xlInsideHorizontal).LineStyle = xlNone
End With
End If
End If
End Sub
Sub aaTest()
Dim A
A = xlHairline ' 1
A = xlThin '2
A = xlMedium '-4138
A = xlThick '4
With Range("AN6").Borders
.LineStyle = -4142 'xlLineStyleNone
.LineStyle = 1 'xlContinuous
.Weight = 4
.Weight = 1
.LineStyle = -4142 'xlLineStyleNone
End With
End Sub