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...
Read the complete post at http://www.dailydoseofexcel.com/archives/2010/02/26/listing-formulas/
Posted
Feb 26 2010, 08:00 AM
by
Daily Dose of Excel