Function Provjera()
    Dim red As Long
    Dim tmp
    Dim Dat As Date

    For red = 2 To Cells(Rows.Count, "A").End(xlUp).Row
    tmp = Range("A" & red).Value
    On Error Resume Next
    Dat = tmp
        If Err.Number = 0 Then
        Cells(red, 2) = "vrijeme"
        Else
        Cells(red, 2) = "nije vrijeme"
        End If
        Err.Number = 0
    Next red
End Function