Sub ListFormulas() Set InputRange = ActiveSheet.UsedRange Set OutputSheet = Worksheets.Add OutputRow = 1 For Each cell In InputRange If cell.HasFormula Then OutputSheet.Cells(OutputRow, 1) = "'" & cell.Address OutputSheet.Cells(OutputRow, 2) = "'" & cell.Formula OutputRow = OutputRow + 1 End If Next cell End Sub