Adding a date stamp to each cell in column - after the fact

I'm looking to add the date to the end of the text of each cell in a
column after - or before - the information has been pasted from a word
document.

The below code pasted into your particular Sheet module
only affects anything you paste into Column A of Excel.


Private Sub Worksheet_Change(ByVal Target As Range)
Application.EnableEvents = False
If Not Application.Intersect(Range("A:A"), Target) Is Nothing Then
Target.Value = Target.Value & "-" & Date
End If
Application.EnableEvents = True
End Sub

"joe54345@gmail.com" wrote:

> I'm looking to add the date to the end of the text of each cell in a
> column after - or before - the information has been pasted from a word
> document.
>
>