سلمت يداك الفاضل TareQ M ولكنى وجدت هذا الكود يمكن ينفع
Function MyName() As String
MyName = ThisWorkbook.Name
End Function
Function MyFullName() As String
MyFullName = ThisWorkbook.FullName
End Function
Function SheetName(rAnyCell)
Application.Volatile
SheetName = rAnyCell.Parent.Name
End Function
ثم نقوم بعمل المعادلات داخل الملف
مثلا =myname()
والسلام عليكم ورحمة الله