Function строка_итогов()Dim лист As Stringлист = Range("A1").Parent.Nameстрока_итогов = "По итогам " & лист & " года"End Function
Function строка_итогов()строка_итогов = "По итогам " & Application.Caller.Parent.Name & " года"End Function