Hi,
JS:
There's another argument for SpecialCells that allows you to specify just numbers (just as you
can in the Goto/Special dialog box). That eliminates the need for your IsNumeric check.
On Thu, 24 Jul 2003 21:04:04 +0000 (UTC), "
JS" wrote:
The following macro will do this for you - i can e-mail you this as an addin
is you want which will enable you to click on a toolbar button and use it in
any spreadsheet
Sub ShowFormulas()
Dim cell As Range
On Error Resume Next
Application.ScreenUpdating = False
Application.Calculation = xlCalculationManual
For Each cell In Cells.SpecialCells(xlCellTypeConstants)
If IsNumeric(cell.Value) Then
cell.Interior.ColorIndex = 4
End If
Next cell
Application.Calculation = xlCalculationAutomatic
End Sub