Test for existance of data validation

[Guest]

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

Thanks,
Pflugs

 

[Bob Phillips]

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)

 

[Guest]

Thanks. I was trying to use "Is Nothing".

Thanks,
Pflugs