VBA Check if a cell has data validation

' ----------------------------------------------------------------
' Purpose: Check if a cell has data validation or not
' ----------------------------------------------------------------
Function f_cellHasValidation(cell As Range) As Boolean

    Dim valType As Long

    f_cellHasValidation = True

    On Error Resume Next

    valType = cell.Validation.Type

    If Err.Number <> 0 Then
        f_cellHasValidation = False
    End If

    On Error GoTo 0

End Function