Yes, I saw your qualification, but it (because it was short) left me with
the impression that you were suggesting it as a simple replacement for the
previously posted code. My thought was that the OP used the Selection to,
perhaps, shield other formulas from being processed and I just wanted a
comment for him to see indicating that your latest code would not do that.

Rick


"Gord Dibben" <gorddibbATshawDOTca wrote in message
...
Certainly it will pick up every cell with a formula. It was designed to
do just
that

If you re-read you will see that the code was presented to Jarek only as
an
example of how to work without For/Next or a selection

But you can do it without a For/Next or a selection.


Gord

On Sun, 29 Jun 2008 10:56:47 -0400, "Rick Rothstein \(MVP - VB\)"
wrote:

Won't that pick up every cell with a formula, not just the ones in the
Selection (I'm thinking the OP might have used the Selection in order to
shield formulas elsewhere on the sheet)?

Rick


"Gord Dibben" <gorddibbATshawDOTca wrote in message
. ..
But you can do it without a For/Next or a selection.

Dave Peterson showed me this construct.

Sub transl()
Dim rng As Range
Set rng = Nothing
On Error Resume Next 'just in case there are no formulas
Set rng = Cells.SpecialCells(xlCellTypeFormulas)
On Error GoTo 0
If rng Is Nothing Then
'do nothing
Else
rng.Value = rng.Value
End If
End Sub



On Wed, 25 Jun 2008 23:05:42 -0700 (PDT), Jarek Kujawa

wrote:

yep Gord, this one is the simpliest