MACRO to make all formulas a yellow cell?

[tonywatsonhelp]

Hi Everyone,
I'm doing a quick check on a document and need to look at the formulas,
there are a lot and some are disgused with same font and cell colour.

I would like a macro the will go through every sheet and make each cell with a formula in it yellow to help speed thing up

please help if you can

Thanks

Tony

 

[DanteAmor]

Try this

Sub Macro1()
    On Error Resume Next
    For Each sh In Sheets
        sh.Cells.SpecialCells(xlCellTypeFormulas, 23).Interior.ColorIndex = 6
    Next
End Sub