Range(Cells(1, 9), Cells(105, 11)).Select: Selection.ClearContents
Call 実験題目などの表示実験3: '-----既表示のものを消去と実験題目などの表示-----
' -----プログラム本体-------------------------------------------------

Dim x As String: Dim i As Integer: '-----変数型の宣言-----
i = 0: Epc = 10 ^ (-6): Pi = 3.14592654: '-----初期値の設定-----

' -----初期値x0およびx1を入力・表示-----
Cells(3, 9).Select: xL = InputBox("初期値x0の値を入力せよ。"): ActiveCell.FormulaR1C1 = xL
Cells(3, 10).Select: xU = InputBox("初期値x1の値を入力せよ。"): ActiveCell.FormulaR1C1 = xU
Range(Cells(3, 9), Cells(3, 10)).Select: Selection.NumberFormatLocal = "0.00_"
xs = xL: 関数fx xs, fxs, Pi: yL = fxs: xs = xU: 関数fx xs, fxs, Pi: yU = fxs
' -----変数x値と関数f(x)値の取得（計算）の繰り返し、途中経過の出力（セルへの表示）-----
Do: i = i + 1: xs0 = xs: Cells(4 + i, 9).Select: ActiveCell.FormulaR1C1 = i
変数x xL, xU, yL, yU, xs: Cells(4 + i, 10).Select: ActiveCell.FormulaR1C1 = xs
関数fx xs, fxs, Pi: Cells(4 + i, 11).Select: ActiveCell.FormulaR1C1 = fxs
Range(Cells(4 + i, 10), Cells(4 + i, 11)).Select: Selection.NumberFormatLocal = "0.000000_"
If fxs * yL < 0 Then
xU = xs: yU = fxs
Else
xL = xs: yL = fxs
End If
Loop Until Abs(xs - xs0) = Epc Or Abs(xs - xs0) < Epc Or i = 100

xs = Round(xs, 6): x = CStr(i) + "回の繰り返し計算により、x=" + CStr(xs) + "が得られました。"
Cells(5 + 1, 9).Select: ActiveCell.FormulaR1C1 = x
・・・・・・・・・
↑のようにプログラミングしたのですが、
「実行時エラー'1004'RangeクラスのNumberFormatLocalプロパティを設定できません 」
というのが出てきます。理由がわからないので誰か教えて下さい。お願いします。