I'm having a little trouble with this one, I'm trying to delete all
rows where the cells within the selected range are not formatted as
date.

Sub delete_date()
Dim datarng As Range
lastrow = Cells(Rows.Count, "B").End(xlUp).row
Set datarng = Range ("b2:b" & lastrow)