Function to check if cell value is date or not

Function checkdate(x As Date)

checkdate = IsDate(x)
End Function


it will return True if cell value is Date