Without VBA:
In each "Mr..." sheet, place the following formula in a cell (let's say A1):
=MID(CELL("filename",A1),FIND("]",CELL("filename",A1))+1,255)
This will reflect the sheet name... just refer to this cell from sheet4
EDIT: or even better, use in sheet4:
=MID(CELL("filename",'Mr. A'!A1),FIND("]",CELL("filename",A1))+1,255)
'Mr. A'!A1 - select a random cell from the desired sheet.
Don't mention itThanks alot. It works now