Selecting Column Range

[Desert Piranha]

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

 

[Leith Ross]

Hello Desert Piranha,

With Range("A" & Target.Row, "F" & Target.Row)

Sincerely,
Leith Ros

 

[Desert Piranha]

Hi Leith,

Thats wonderfull. Works great.

Thanks much.
Dave

Hello Desert Piranha,

With Range("A" & Target.Row, "F" & Target.Row)

Sincerely,
Leith Ross