Looking for VBA that will turn cells blue, if they have any validation rules
applied to it. Is this possible?
How?
I have something similar that makes all unlocked cells Yellow. It works like
a charm and is lightning fast.
But I don't know enough coding to change that code to suit this application.

    Dim cell As Range, tempR As Range, rangeToCheck As Range
       Cells.Select
       Cells.Interior.ColorIndex = -4142
       For Each cell In Intersect(Selection, _
               ActiveSheet.UsedRange)

'    If cell has validation then colour cell blue
Code needed here: <<<?  

Old Code (If Not cell.Locked Then
          If tempR Is Nothing Then
            Set tempR = cell
               Else
                       Set tempR = Union(tempR, cell)
               End If
           End If

       Next cell
           If tempR Is Nothing Then
           MsgBox "There are no Cells with Validation " & _
                   "in the selected range."
           End
       End If
       
   'Select qualifying cells
   'TempR.Select
       tempR.Interior.ColorIndex = 5 'Blue

End Sub