This code will list all the formulas in the selection in the Immediate Window.
Sub ListFormulas()
Dim rCell As Range
If TypeName(Selection) = "Range" Then
For Each rCell In Selection.Cells
Debug.Print String(4, " ") & rCell.Address(0, 0), rCell.Formula
Next [...] Read More...