Pedro, if you want to put it in a cell and not in the footer this will do
it, the workbook as to be saved for this to work,
=LEFT(SUBSTITUTE(LEFT(CELL("filename"),FIND("]",CELL("filename"))),"[",""),L
EN(SUBSTITUTE(LEFT(CELL("filename"),FIND("]",CELL("filename"))),"[",""))-1)
--
Paul B
Always backup your data before trying something new
Using Excel 2000 & 97
Please post any response to the newsgroups so others can benefit from it
** remove news from my email address to reply by email **