ワークシート名／ファイル名を取得する関数

１．ワークシート名を取得する関数
=RIGHT(CELL("filename"), LEN(CELL("filename")) - FIND("]", CELL("filename")))

２．ファイル名を取得する関数
=MID(CELL("filename"),SEARCH("[",CELL("filename"))+1, SEARCH("]",CELL("filename"))-SEARCH("[",CELL("filename"))-1)
もしくは
=MID(CELL("filename",A1),FIND("[",CELL("filename",A1))+1,FIND("]",CELL("filename",A1))-FIND("[",CELL("filename",A1))-1)