find and config calculation cells

Hi all,

I have a command button on a sheet.

I'd like a macro to scan the workbook and find all cells which contain a function/calculation and then change the colour of the cell.

Can this be done and if so, how?

Thank you

ActiveSheet.UsedRange.SpecialCells(-4123).Interior.Color = vbYellow

That's great!

How could I apply that to highlight the entire workbook and is there a way to "undo" the highlight?

to highlight the entire workbook

Dim wsh As Worksheet
On Error Resume Next
For Each wsh In ThisWorkbook.Worksheets
    wsh.UsedRange.SpecialCells(-4123).Interior.Color = vbYellow
Next

to "undo" the highlight

Dim wsh As Worksheet
On Error Resume Next
For Each wsh In ThisWorkbook.Worksheets
    wsh.UsedRange.SpecialCells(-4123).Interior.Color = xlNone
Next

Thank you!

Absolutely perfect.