Trying to move a row to another sheet if a date is entered in excel

[Janet215]

I am using the code below and it's moving the row when I enter non-date entries. If I enter text, it moves the row. I only want it to move if there is a date in it. It doesn't matter what date, but it has to be a date.

Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Column = 2 And Target.Cells.Count = 1 Then
If Target.Value > Date - 10000 Then
With Target.EntireRow
.Copy Sheets("Sheet2").Range("A" & Rows.Count).End(xlUp).Offset(1, 0)
.Delete
End With
End If
End If
End Sub

Thanks!

 

[Michael M]

How about

Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Column = 2 And Target.Cells.Count = 1 Then
If IsDate(Target.Value) Then
With Target.EntireRow
.Copy Sheets("Sheet2").Range("A" & Rows.Count).End(xlUp).Offset(1, 0)
.Delete
End With
End If
End If
End Sub

 

[Janet215]

Thanks!!! It worked!!!

 

[Michael M]

Glad to help and thanks for the feedback !!