VBA Code to color cell if cell contain formula or if contain numeric/alphabet

[aayaanmayank]

Hi All i need a vba code which can yellow colour the cell if cell contains formula and blue colour if cell is not blank or contains anything.

 

[James006]

Hi,

You can test following

Sub SimplyColor()
  With ActiveCell
    If .HasFormula Then
        .Interior.Color = vbYellow
    Else
       .Interior.Color = vbBlue
    End If
  End With
End Sub

HTH

 

[aayaanmayank]

I need code which can work on entire sheet or entire workbook

 

[James006]

I need code which can work on entire sheet or entire workbook

You are welcome ...

 

[Fluff]

I need code which can work on entire sheet or entire workbook

To work on an entire sheet try

Sub Hilite()
   With ActiveSheet.UsedRange
      .SpecialCells(xlFormulas).Interior.Color = vbYellow
      .SpecialCells(xlConstants).Interior.Color = vbBlue
   End With
End Sub