VBAでセルに計算式が挿入できない

Question

以下のコードを実行すると
エラー 1004 アプリケーション定義またはオブジェクト定義のエラーです。
を吐いてしまいます。
ダブルクォーテーションのエスケープができていないのでしょうか。。。

#iは変数,wsでワークシートを定義しております。
ws.Cells(i, 37).formula = "=TEXT(abs(=B" & i & "-AK" & i & "),IF(B" & i & ">AK" & i & "," & """-hh:mm""" & "," & """hh:mm""" & "))"

ちなみに挿入したい関数は以下です。

#iを変数にして、for文を使いB1,B2,…と最終セルまで貼り付けをします。
=TEXT(abs(=B1-AK1),IF(B1>AK1,"-hh:mm:ss","hh:mm:ss"))

よろしくお願いいたします。

Answer 1

abs(=B" & i & "-AK" & i & ")の=は不要かと思います。

Answer 2

ABSの中の=が余分？

Answer 3

iの値を確かめてください。セットされていますか？