Looking for code that will return whether or not a cell has "data validation" associated with it or not

[atf32]

OS= windows 7
MS Excel 2010

I have a worksheet with hundreds of cells that may or may not have a "data validation" associated with it. So I wrote code that will scroll through each cell in a range, and reports out some information. However I also need a line of code that will confirm (T/F) whether or not the active cell has a "data validation" associated with it.

 

[Gary's Student]

Consider:

Sub DVCheck()
Dim r As Range
Set r = Nothing
On Error Resume Next
Set r = Cells.SpecialCells(xlCellTypeAllValidation)
If r Is Nothing Then
    MsgBox "There is no data validation on the sheet"
End If
If Intersect(r, ActiveCell) Is Nothing Then
    MsgBox "The active cell is not data validated"
Else
    MsgBox "The active cell is data validated"
End If
End Sub

 

[atf32]

Thanks you.....this worked fine.