セルにシート名を表示するには、Cell関数を使います。
=CELL("filename",$A$1)
でブックのフルパス+シート名を表示出来ますので、
シート名
=RIGHT(CELL("filename",$A$1),LEN(CELL("filename",$A$1))-FIND("]",CELL("filename",$A$1)))
ブック名
=MID(CELL("filename",$A$1),FIND("[",CELL("filename",$A$1))+1,FIND("]",CELL("filename",$A$1))-FIND("[",CELL("filename",$A$1))-1)
とすれば表示出来ます。
但し、一度ブックを保存しておかないと表示されないので注意して下さい。