【Excel】 セルの文字データを表す「'」（シングルクォート）を削除する

複数のセルの数式を規則的に変更したくて、
１） とりあえず先頭の「=」を「'=」に置換し、
２） いろいろと置換・編集した結果を、
３） 再び数式に戻そうと、先頭の「'=」を「=」に置換しようとしたら、
・・・残念ながら先頭の「'」はデータとして認識してくれない。
ググってみたらそういう操作はできないらしい。
以下のプログラムを作って解決 ：

Sub ChangeToFormula()
' 「=」で始まる文字データを式に変更する
' 操作 ： 変更したい範囲を選択して、このマクロを実行

  Dim wCell As Range
 
  For Each wCell In Selection
    If (Left(wCell.Value, 1) = "=") Then
      wCell.Formula = wCell.Value
    End If
  Next wCell
End Sub