I do a bit of this all the time because some of my "clients" like to alter
the names of worksheets. Being in a multi language environment has it's
ummmm drawbacks :-)

I reflect the name of the sheet  in cell  A1 so if the sheet is printed the
name is there as the user has altered it in nice big letters.

I don't think it's completely what you are looking for but maybe a pointer.

The formual I use is....

=TRIM(MID(CELL("filename",A1),(FIND("]",CELL("filename",A1))+1),50))