I know that there must be a better way of detecting if a cell has data validation set.
I just don't know what it is!
Code: Select all
Function blnValidation(rngInput As Range) As Boolean
On Error GoTo Failed
If Len(rngInput.Validation.Formula1) = 0 Then
Else
End If
blnValidation = True
Failed:
'Sub TESTblnValidation()
' MsgBox blnValidation(ActiveCell)
'End Sub
End Function