Perhaps this little code snippet will point you in the right direction:

Sub FormulaCellColor()

   Dim varVal As Variant
   Dim strCell As String
   Dim r As Range
   
   Range("A1").Select
   varVal = ActiveCell.Value
   
   Do Until varVal = ""
       Set r = ActiveCell
       If r.HasFormula Then
           With r
               .Interior.Color = vbBlue
               .Font.Color = vbWhite
           End With
       End If
       ActiveCell.Offset(1).Select
   Loop
   
   Set r = Nothing

End Sub