I love it when you use the search function and you find exactly what your after.
Mr.Excel just keeps on rickin' IMHO!
I used this code, and since I have absolutely no clue on code or writing code this was super helpful.
My small problem was I needed this funtion to also happen a few cells accross, but getting the code to do that was almost impossible with no knowledge.
I tried a heap of things and eventually when i worked out what was what i came up with this.
Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Column = 3 Then
Application.EnableEvents = False
Target.Offset(0, 1).Value = Date
Application.EnableEvents = True
End If
If Target.Column = 8 Then
Application.EnableEvents = False
Target.Offset(0, 1).Value = Date
Application.EnableEvents = True
End If
End Sub
Now like I said I knwo nothing about code, I used the code from the OP and then tried cutting and pasting a few ways and bingo.
Now I'm not sure if this is how you should add the code, but it works for me.
So thanks VoG II for the original code, cheers mate.
:D