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

" 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.