hi, !

Anyone know a code to go through the active sheet, look for any cells that have validation, and shade them purple?
I am modifying an olderworkbook, and there are stray cells with no data or formula, just validation, so I am trying to track them down.
I guess a "For each ws in Workbook" code would be easier...

(i.e.)

Sub Paint_DV()
Dim wS As Worksheet
For Each wS In Worksheets
On Error Resume Next
wS.Cells.SpecialCells(xlCellTypeAllValidation).Int erior.ColorIndex = 18
Next
End Sub

hth,
hector.