Timestamp in 3 seperate columns

[ecxc4]

I have been able to use a timestamp in 2 different columns corresponding to the column next to it. But I would like to add a third column, the range will not allow another column to be added.

using this code :


Private Sub Worksheet_Change(ByVal Target As Range)
Dim keyRange As Range
Set keyRange = Range("b13:b65536", "d13:d65336")
Application.EnableEvents = False
If Not Intersect(keyRange, Target) Is Nothing Then
If Target <> "" Then
Target.Offset(0, -1) = Now
Else
Target.Offset(0, -1) = ""
End If
End If
Application.EnableEvents = True
End Sub



any help would be greatly appreciated

 

[Norie]

Try this.

Set keyRange = Union(Range("b13:b65536"), Range("d13:d65336"), Range("F13:F65336"))

 

[ecxc4]

well done.... thank you very much