You have pasted the code to the module that I showed earlier. Paste the following code under it:
Private Function HasValidation(r) As Boolean    

    HasValidation = True
    
    'Returns True if every cell in Range r uses Data Validation
    On Error Resume Next
    For Each cll In r.Cells
        x = cll.Validation.Type
        If Err.Number <> 0 Then
            HasValidation = False
            Exit For
        End If
    Next cll
End Function
Artik