Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Column() <> 5 Then Exit Sub ' Your column
R = 10 'Your row
With Range("B" & R & ":K" & R).Borders(xlEdgeBottom)
.LineStyle = xlContinuous
.Weight = xlThick
End With
End Sub
Copyright©1996-2021,Tapuz Media Ltd. Forum software by XenForo® © 2010-2020 XenForo Ltd.