Требуется объект Ошибка 424

Question

Я пытаюсь восстановить имя листа и временно сохранить его, используя следующую функцию в VBA.

Function MySheet() 

    MySheet = Application.Caller.Worksheet.Name 

End Function 

Но продолжает возвращаться объект требуется подсветка
MySheet = Application.Caller.Worksheet.Name.

Пожалуйста, помогите.

Answer 1

Dim WS, как лист набор Ws = activeworksheet

затем попытаться получить имя от ws.name

Answer 2

Для получения рабочей таблицы .Name property вам необходимо указать Range.Parent property из Application.Caller.

Function MySheet() 

    MySheet = Application.Caller.Parent.Name 

End Function 

Это предполагает, что вы используете это на рабочем листе в виде функции UDF¹ рабочего листа.

---

¹ _{опред.польз.имя Функция (иначе ОДС) помещают в стандартный модуль кода листа. Нажмите Alt + F11 и при открытии VBE, немедленно использовать выпадающее меню для Вставка ► Модуль (Alt + I, M). Вставьте код функции в новый код модуля, обозначенный как-то вроде Book1 - Module1 (Code). Нажмите Alt + Q, чтобы вернуться на рабочий лист (ы).}