Amend VBA coding so target value refers to a date and not a specific word

Hi,

I need to amend the following coding so that Target in column J refers to a date and not a word. Does anyone know how I can amend this as I am stuggling. I have attached my worksheet that I am working on.

Any help is greatly appreciated.

Kaz

Option Explicit
Dim Flag As Boolean
Private Sub Worksheet_Change(ByVal Target As Range)
Dim LR As Long
LR = Range("A" & Rows.Count).End(xlUp).Row

If Flag = True Then Exit Sub
If Not Intersect(Target, Range("J4:J" & LR)) Is Nothing Then
If Target.Value = "Complete" Then

LR = Sheets("Completed").Range("A" & Rows.Count).End(xlUp).Row + 1
Target.EntireRow.Copy
Sheets("Completed").Range("A" & LR).PasteSpecial
Flag = True
Target.EntireRow.Delete
End If
End If
Application.CutCopyMode = False
Flag = False
End Sub

Attached Files

• Vehicle Incident Report Log.xlsm‎ (18.5 KB)