=MID(CELL("filename",A1),1+FIND("[",CELL("filename",A1)),FIND(".",CELL("filename",A1 ))-FIND("[",CELL("filename",A1))-1)

This only works if you have saved the file at least once.

"Pedro Serra" wrote:

Is there a way to put the name of the excel file in a worksheet?

Thanks