VBA ユーザ定義関数自身のセルのアドレスを取得する

ユーザー定義関数が入力されているセルのアドレスを取得する方法は2つ

ThisCellプロパティで取得する

Function GetAddr()
  GetAddr = Application.ThisCell.Address(False, False, xlA1)
End Function

Callerプロパティで取得する

Function GetAddr2()
  GetAddr2 = Application.Caller.Address(False, False, xlA1)
End Function

※.AddressはRangeオブジェクトのAddressプロパティ
取得する値の形式を変えたい場合はAddressプロパティで指定する。