VBA with ISDATE

[VeryForgetful]

Hi,

Hoping someone can help me with some vba please.

I'm looking to test a range of A2:A to see if a valid date has been entered.

The data is being pasted from another file and if any of the cells in range does not equal a valid date then Exit Sub, else code carries on running. I've looked into the ISDATE function but not sure how to apply it to a range. I also need the code to ignore any blanks in the range.

My code runs on a worksheet change event if target.column=1 which executes on paste.

 

[SteveO59L]

what would you like to happen if the entry isn't a valid date?
code would go something like

Dim c As Range, rng
Set rng = Range("a1:a31")
For Each c In rng
MsgBox c
If IsDate(c) = False Then
c.Offset(0, 1) = "not a valid date"
End If
Next c

 

[VeryForgetful]

Thanks Steve,

if any of the cells contain something that isn't valid then I need the sub to just exit. I don't need any prompt or anything like that.

Blanks are ok so would need the code to ignore those rows.