Any way to shorten this time stamping VBA macro code?

[DorothyFan1]

I have a problem with a time stamping code for an Excel worksheet that I've set up. Currently the table has 9 contiguous columns of data. I needed the VBA macro to time stamp in the 10th column whenever I added or edited any data within those columns.

Unfortunately I was forced to manually copy this particular code over and over again up to nine times to satisfy my requirement because of the way this code is set up. I'm wondering if there's a better way to loop through this particular code without copying and pasting this over and over again using an if statement. Here's the code:

If Target.Column = 1 Then
Application.EnableEvents = False
Cells(Target.Row, 10).Value = Date + Time
Application.EnableEvents = True
End If

[Norie]

Perhaps.

Please Login or Register  to view this content.

PS Can you add code tags when posting code?

[MickG]

Perhaps this in your Active sheet module:-

Please Login or Register  to view this content.

Regards Mick

[DorothyFan1]

I apologize. I forgot to put that in. My bad. Won't happen again.