VBA自作関数にて現在のセル

Question

やりたいこと

ユーザー定義関数を使用して、現在の位置を取得してC4セル（Offsetで-３）の値を取得したい。

調べたこと

【ユーザー定義 関数 VBA セル位置】
上記キーワードにてグーグル先生に聞く。

参考にしたサイト

参考サイトのコード単体では問題なくセルを表示された。

現状のコードに組み込むとセルを取得する部分でエラーになる

セル取得コード単体では怒られないので
oil_sum(MyFunction())
上記のように2つに関数を分けてみたが循環のエラーで怒られる。

Function oil_sum()
   '変数
   Dim element As Integer
   Dim color As Integer
   Dim oil As Integer
   
   myAddress = Application.ThisCell.Address
   '0はFalseでも同じ。0が無いと絶対表
   'エレメント判定
   If Range(myAddress).Offset(-1, 0).Text = "" Then
   '空白なのでエレメント交換無し
   element = 0
   
   Else
   '文字入力されているのでエレメント交換有り
   element = Val(Range(myAddress).Offset(-3, 0).Value)
   End If   
   '合計
   Range(myAddress).Value = CStr(element + oil)
End Function

自分なりには出来るところまでやったのですが、手詰まりなので
ご教示お願い致します。

追記

取得できないのであれば、セルに手入力で自分のセルを入力してみようと思いやってみた結果
循環のエラーが発生しました。

メッセージボックスが常に3回開いてしまう現象
Range(myAddress)が３つあるので、ココを疑ってみることにして
Withステートメントを使ってみたが、3回メッセージボックスが表示された

Answer 1

Function oil_sum()
   '変数
    Dim element As Integer
    Dim oil As Integer
        
    With Application.ThisCell
        oil = .Offset(-2).Value
        element = IIf(.Offset(-1).Value = "", 0, .Offset(-3).Value)
    End With
    
    oil_sum = oil + element
End Function

Comments

[AMK]

回答ありがとうございます！
早速試してみたのですが、コードをコピペして使ってみても動作しませんでした

[AMK]

エラーは、With Application.ThisCell　の部分でエラーになり止まりました

[jinoji]

C7セルに =oil_sum() と入力してEnterした結果ですか？

[AMK]

はい
エンター押してもエラーのままでした

[AMK]

スミマセン、コピペしたときに関数名変えていて
出力時の変数名を変更していませんでした。