List all formulas used on a spreadsheet

[chaliseyp]

Hello everyone,

Is it possible to list all the formulas - including custom formulas - on a given spreadsheet ?

[jolivanes]

Toggle on and off?

Sub Show_Hide_Formulas()
If ActiveWindow.DisplayFormulas = False Then
    ActiveWindow.DisplayFormulas = True
        Else
    ActiveWindow.DisplayFormulas = False
End If
End Sub

or go to the Formulas tab and click on Show Formulas.

[chaliseyp]

Thanks jolivanes.

But, this is not what I was after

I want to list the formulas in the spreadsheet rather then display / view the formulas.

So, the list should have the list of cells where there is formulas and the formulas used on those cells.

[jolivanes]

Change references as required. Maybe put the result into an empty sheet instead.

Sub Maybe()
Dim c As Range
For Each c In ActiveSheet.UsedRange.SpecialCells(xlCellTypeFormulas)
    Cells(Rows.Count, 15).End(xlUp).Offset(1).Value = c.Address    '< Change the 15 to an empty column Number
    Cells(Rows.Count, 17).End(xlUp).Offset(1).Value = "'" & c.Formula    '< Change the 17 to another empty column Number
Next c
End Sub