You seem very pleased!! and your welcome, thanks for the feedback.

"The Fool on the Hill" wrote:

Hey Mike,

This works perfectly !!

Thanks mate !!

Have a great weekend !

"Mike H" wrote:

Hi,

The changes you have made work perfectly for me so If it isn't working for
you then I suspect you may have put the code in the wrong place.

Right click the sheet tab, view code and paste it in there and see what
happens.

Mike

"The Fool on the Hill" wrote:

Hello Mike,

Thanks for your answer and patience with my ignorance.

When i enter something in the B:B range (for instance B4), then the date
must be entered in the H:H range (in this case H4).

I have tried to change your advice and this is what I have come up with:

Private Sub Worksheet_Change(ByVal Target As Range)
Dim rng As Range
If Target.Count 1 Then Exit Sub
Set rng = Range("B:B") '< Could be B:B for an entire column
If Intersect(Target, rng) Is Nothing Then Exit Sub
If Target < "" Then Target.Offset(0, 6) = Now()
If Target = "" Then Target.Offset(0, 6) = ""
End Sub

It seems as if it does not work.

Thanks for your help !!