Hi all,

When i put a value into a cell in Column D.
Put bottom border in cells on that row, but just Columns A:F
This works except for the way i am selecting Col A:F
If i just put A or F it works for that one column.
Any direction?


Code:
--------------------
Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Column = 4 Then
With Range("A:F" & Target.Row)
With .Borders(xlEdgeBottom)
.LineStyle = xlContinuous
.Weight = xlThin
.ColorIndex = xlAutomatic
End With
End With
End If
End Sub
--------------------


--
Desert Piranha


------------------------------------------------------------------------
Desert Piranha's Profile: http://www.excelforum.com/member.php...o&userid=28934
View this thread: http://www.excelforum.com/showthread...hreadid=492462