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