Let's assume that your sheetname hastwo parts separated by an underscore.
The following UDF will return the part following that undersco

Function sname(r As Range)
Application.Volatile
sname = Split(r.Parent.Name, "_")(1)
End Function

So if the sheetname is qwerty_asdf
=sname(A1)
will display:
asdf
--
Gary''s Student - gsnu200736


"Skrapik" wrote:

Situation is really tricky for me, (D;E) 4 in one peace, and i need it to be
named as my sheet but not fully, Sheet name is T 060_esik (and "esik" part
needs transport into cell D;E4) is it possible?

I guess i explained correctly! Thnx