Dim dv

On Error Resume Next
dv = ActiveCell.Validation.Type
On Error GoTo 0
If Not IsEmpty(dv) Then
MsgBox "validation"
End If


--
---
HTH

Bob

(there's no email, no snail mail, but somewhere should be gmail in my addy)



"Pflugs" wrote in message
...
Could someone provide syntax to test for data validation within a cell? I
can't seem to get it to work.

Thanks,
Pflugs