Как сохранить в переменной имя активного листа Excel

[SashaS]

Здравствуйте. Допустим у меня есть документ Excel 2003. Есть 31 лист, и есть макрос который работает в зависимости от того на каком листе его запускать. ион должен принимать в качестве параметра имя листа, то есть число от 1 до 31.
я хочу чтобы когда пользователь выбирал лист, это число автоматически менялось.
Но я не знаю как сохранять имя листа в переменную, подскажите пожалуйста.
Спасибо

[IgorGO]

в модуль книги вот этот

Private Sub Workbook_SheetActivate(ByVal Sh As Object)
    NL = Sh.index
End Sub

Private Sub Workbook_Open()
    NL = activesheet.index
End Sub

NL - обьявите в программном модуле, как общедоступную переменную.

[Shkoda]

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

в модуль книги вот этот

Private Sub Workbook_SheetActivate(ByVal Sh As Object)
    NL = Sh.index
End Sub

Private Sub Workbook_Open()
    NL = activesheet.index
End Sub

NL - обьявите в программном модуле, как общедоступную переменную.

Добрый день.

Игорь, позвольте поправить Вас, SashaS просил чтобы переменной было название листа.

Private Sub Workbook_SheetActivate(ByVal Sh As Object)
    NL = Sh.Name
End Sub

Private Sub Workbook_Open()
    NL = ActiveSheet.Name
End Sub

Если не прав, приношу заранее извинение!

[IgorGO]

четко описанные условия:

принимать в качестве параметра имя листа, то есть число от 1 до 31

дает возможность включить фантазию при выборе варианта решения.

[Hugo121]

Что-то я не пойму... А чем эта переменная не годится?

Sub tt()
MsgBox ActiveSheet.Name
End Sub

[Shkoda]

IgorGO приношу извинения, логически подумал о числах месяца.
При ручном заполнении индекс листа не всегда будет совпадать с самим названием самого листа.