Excelのユーザー定義関数で、自分自身が書き込まれているセルのアドレス取得にはApplication.ThisCell.Address

ThisCellプロパティで取得する

Function test()
　MyString = Application.ThisCell.Address(False, False, xlA1)
　test = "入力されているセルは、" & MyString & "です"
End Function

Callerプロパティで取得する

Function test2()
　MyString = Application.Caller.Address(False, False, xlA1)
　test2 = "入力されているセルは、" & MyString & "です"
End Function

ネタ元

• http://okwave.jp/qa/q4323402.html