Test for existance of data validation
 

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

Thanks,
Pflugs

Test for existance of data validation
 

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

Test for existance of data validation
 

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

Thanks,
Pflugs

"Bob Phillips" wrote:

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