Ez a kód itt (a lenti linkről másolva):

Sub a()

Dim r As Range

Set r = Intersect(ActiveSheet.UsedRange.SpecialCells(xlCellTypeAllValidation), ActiveSheet.UsedRange.SpecialCells(xlCellTypeVisible))

If Intersect(ActiveCell, r) Is Nothing Then MsgBox "Cell has no validation"

Else MsgBox "Cell has validation"

End If

End Sub

 

Szerintem ha a fenti Activecell object helyett a worksheets(akarmennyi).usedrange objectet használod, akkor is működik (azt nézi meg, hogy van-e közös halmaza két range-nek, a range-ek akármekkorák lehetnek).

 

Szóval nem kell cellánként megnézni.