Hi,

I'm confused, this works fine if you paste data into a single cell, are you
saying you want it to work if you paste into multiple cells?

Mike

"ComputerMech" wrote:

Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Column < 2 Then Exit Sub
If Target.Row = 1 Then Exit Sub
If IsEmpty(Target(1)) Then Exit Sub
If IsEmpty(Target.Offset(0, -1)) Then
Target.Offset(0, -1) = Date
Target.Offset(0, -1).NumberFormat = "yyyy-mm-dd"
End If
End Sub

This works fine if I type something but I am pasting data in the cells and
it does not put in the date is there any changes that can be made