Cannot get Application Caller to work

[snb]

In A1:


"=F=snb()"

In a macromodule:

Function F_snb()
   MsgBox Application.Caller.Address & vbTab & Application.Caller.Parent.Name
End Function

or

Function F_snb()
  With Application.Caller
    MsgBox .Address & vbTab & .Parent.Name
  End With
End Function

NB. 'Public' is redundant
'Irow' is redundant
Any variable is redundant
Keep your code concise.