سلمت يداك الفاضل 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() 
 
والسلام عليكم ورحمة الله