I have a range of cells that contain formulas with an
apostrophe in front. For example: '=SUM(A1:B1). I need to
evaluate the formulas. My code works with cells containing
examples like this, but returns errors if the cells are
empty or contain other text strings like "eeeee". I just
need to skip these. TIA. Jason
-----------------------------

Sub BringMyFormulasBack()

Dim cell As Range
Dim oldfrmla As String

For Each cell In Selection
oldfrmla = cell.Text
If Left(oldfrmla, 1) = Chr(39) Then
oldfrmla = Right(oldfrmla, Len(oldfrmla) - 1)
End If
cell.Formula = Evaluate(oldfrmla)
Next cell

End Sub