vba - 式が複雑すぎるエラー

Question

この質問がかなり聞かれることは知っていますが、私の問題に適用できる答えを見たことがありません. このエラーは、かなりの数の原因で発生する可能性があるようです。

まず、コードは次のとおりです。

SurfArea = 19.63495408
Volume = 12.2718463
DeSimpleFinal = 0.009336098
Counter = 13 
pi = 4*atn(1)
tracker = 0
stepamount = (Range("A" & Counter + 1).Value) / 1000
If Range("XFD1048508").Value = 1 Then
    For x = 0 To Range("A" & Counter + 1).Value Step Stepamount
        tracker = tracker + 1
        ActiveSheet.Range("XEY" & tracker).Value = ((2 * SurfArea) / Volume) * Sqr((DeSimpleFinal * x) / pi)
        ActiveSheet.Range("XEX" & tracker).Value = x
    Next
Else
End If

(Range("A" & Counter + 1).Value) をオンのままにすることにしました。これは、コードが壊れている理由に関連している可能性があるためです。そのセルは A14 で、その中に値 11 があります。

デバッグ時にフラグが立てられる行は、For ループの最初の行です。ループは 1 回の繰り返しも行いません。

誰かがそれが何であるかについての考えを持っていますか? すべてのデータ型をバリアントに変更して、それが問題であるかどうかを確認しましたが、何もしませんでした。ご協力ありがとうございました！

編集：ループを通過するように、その範囲の値は1でなければならないことに注意してください。