' ----------------------------------------------------------------
' 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