Функция выдающая имя Листа

[agregator]

Здравствуйте, уважаемые программисты. Подскажите как создать пользовательскую функцию, которая выдаёт имя листа на котором она располагается. Эта функция не пересчитывается при смене листа и остается прежнее значение

Function ЛИСТ()

'*******************************************************
' Функция выдаёт имя листа
'*******************************************************

Application.Volatile True

   ЛИСТ = ActiveSheet.Name 'Worksheet.Name - не работает
End Function

[EugeneS]

попробуйте так:

Function ЛИСТ()
   ЛИСТ = ActiveSheet.NameEnd Function
End Function

[Hugo121]

А родная не годится?

=MID(CELL("filename");(SEARCH("]";CELL("filename");1))+1;300)

[kuklp]

Сообщение от EugeneS

попробуйте так:

Function ЛИСТ()
   ЛИСТ = ActiveSheet.NameEnd Function
End Function

EugeneS, а Вы так пробовали? Я морщил лоб, пытаясь понять, что такое NameEnd:-) а потом еще и Function. И после всей этой красоты End Function.

[DV68]

Немножко длинновато, но без макросов)):

=ПСТР(ЯЧЕЙКА("имяфайла";B2);ПОИСК("[";ЯЧЕЙКА("имяфайла";B2))+1;
ПОИСК("]";ЯЧЕЙКА("имяфайла";B2))-ПОИСК("[";ЯЧЕЙКА("имяфайла";B2))-5)+
ПСТР(ЯЧЕЙКА("имяфайла";B2);ПОИСК("]";ЯЧЕЙКА("имяфайла";B2))+1;2)-1

[agregator]

Всем спасибо.

Function ЛИСТ()
   ЛИСТ = ActiveSheet.NameEnd Function
End Function

Не работает
DV68, я делал:
=ДАТАЗНАЧ(ПСТР(ЯЧЕЙКА("имяфайла";A1 );НАЙТИ("[";ЯЧЕЙКА("имяфайла";A1))+1;НАЙТИ(". xls";ЯЧЕЙКА("имяфайла";A1))-НАЙТИ("[";ЯЧЕЙКА("имяфайла";A1))-1))+ПСТР(ЯЧЕЙКА("имяфайла";A1);НАЙТ И("]";ЯЧЕЙКА("имяфайла";A1))+1;2)-1
а оказывается можно без ДАТАЗНАЧ().