Use macro code in only one column

[maxpaddy]

Hey guys, first post.

I need help. I'm using this code in my work:

Option Explicit

Private Sub Worksheet_Change(ByVal Target As Range)
Dim rngDV As Range
If Target.Count > 1 Then GoTo exitHandler
Application.EnableEvents = False

On Error Resume Next
Set rngDV = Cells.SpecialCells(xlCellTypeAllValidation)
On Error GoTo exitHandler
If rngDV Is Nothing Then GoTo exitHandler
If Intersect(Target, rngDV) Is Nothing Then
'do nothing
Else
If Target.Value = "" Then GoTo exitHandler
If Target.Offset(0, 1).Value = "" Then
Target.Offset(0, 1).Value = Target.Value
Else
Target.Offset(0, 1).Value = _
Target.Offset(0, 1).Value _
& Chr(10) & Target.Value
End If
End If

exitHandler:
Application.EnableEvents = True
End Sub

I need that to only work in column D

Thanks guys

[TMS]

Please Login or Register  to view this content.

Regards, TMS

[maxpaddy]

Please Login or Register  to view this content.

Regards, TMS

Thanks mate

[maxpaddy]

Please Login or Register  to view this content.

Regards, TMS

Where would i add this?

-Cheers

[TMS]

After the Dim.

Regards, TMS