Documenting contents of cells

[jcm93035]

I seem to remember a Lotus function that would allow me to print out the
equation in each cell, thus creating a paper backup for the
spreadsheet. I haven't been able to find this capability in Excel.
Does it exist? How do I print the equations?

Thanks All

Jim Miller
Port Hueneme, CA

 

[Debra Dalgleish]

To toggle between showing and hiding the formulas, hold the Ctrl key,
and press the ` (accent grave) key (above the Tab key).

 

[Gord Dibben]

Jim

Hit CRTL + `(above the TAB key) to toggle "view formulas" on/off.

I find this method not too neat for printing and prefer the following macro
from John Walkenbach which list the formulas, results and addresses on a new
worksheet.

Sub ListFormulas()
'from John Walkenbach
Dim FormulaCells As Range, cell As Range
Dim FormulaSheet As Worksheet
Dim Row As Integer
Dim ws As Worksheet
' Create a Range object for all formula cells
On Error Resume Next
Set FormulaCells = Range("A1").SpecialCells(xlFormulas, 23)

' Exit if no formulas are found
If FormulaCells Is Nothing Then
MsgBox "No Formulas."
Exit Sub
End If

' Add a new worksheet
Application.ScreenUpdating = False
Set FormulaSheet = ActiveWorkbook.Worksheets.Add
FormulaSheet.Name = "Formulas in " & FormulaCells.Parent.Name

' Set up the column headings
With FormulaSheet
Range("A1") = "Address"
Range("B1") = "Formula"
Range("C1") = "Value"
Range("A1:C1").Font.Bold = True
End With

' Process each formula
Row = 2
For Each cell In FormulaCells
Application.StatusBar = Format((Row - 1) / FormulaCells.Count, "0%")
With FormulaSheet
Cells(Row, 1) = cell.Address _
(RowAbsolute:=False, ColumnAbsolute:=False)
Cells(Row, 2) = " " & cell.Formula
Cells(Row, 3) = cell.Value
Row = Row + 1
End With
Next cell

' Adjust column widths
FormulaSheet.Columns("A:C").Cells.WrapText = True ''AutoFit
Application.StatusBar = False
End Sub

Gord Dibben Excel MVP