Вставили лист в книгу...а как узнать как он обозвался?

[tata]

Есть книга с кучей листов ... и вот необходимо вставить лист в книгу для того, чтобы на нем сформировать отчет. Может возникнуть необходимость проделать эту операцию еще сколько-то раз, только с другими данными. Т.е. лист не обзывается принудительно, он вставляется с каким-то там именем, типа "Лист55". Вот хотелось бы это имя получить, чтобы потом была возможность обращаться именно к этому листу из разных мест.

Делаю Sheets.Add
далее хотелось бы присвоить какой-нибудь переменной имя именно этого листа, но...
тупо ttt=ActiveSheets.Name - не получилось...

[tyomitch]

Наверное, ttt = Sheets.Add.Name ?

[GSerg]

Ага.
Или activesheet.name. Ты просто лишнюю s поставил

[tata]

Наверное, ttt = Sheets.Add.Name ?

Таки да! Получилось. Большое спасибо.

[tata]

Ага.
Или activesheet.name.

Неа... так просто не получилось
NewSheets = ActiveSheet.Name

Ты просто лишнюю s поставил

это описка была в сообщении ... и... девушка я

Спасибо за помощь!

[GSerg]

Запомним
Мы вас всех помним. Выхода нет, ввиду отсутствия соотв. графы в профиле

[Lider]

Так как листы обычно не создаются пустыми, я обычно делю так -

Код: Выделить всё

With Worksheets.Add
.Name = "ÏðîöåíòÑîîòí"
.Columns(2).ColumnWidth = 30
.Columns(2).WrapText = True

Dim Òîâàð1 As New Òîâàð
Dim Ñòðîêà As Integer
Ñòðîêà = 1 'Íîìåð ñòðîêè ñ êîòîðîé íà÷èíàåòñÿ ãðóïïà
Dim Inc As Integer ' Èíêðåìåíò
Dim Old1 As Integer ' Áóäåò ïîìíèòü íà÷àëî äàííûõ ïî ïðîäàæàì
Dim Old As Integer ' áóäåò çàïîìèíàòü ñòðîêó â êîòîðîé ñóììà ïðèõîäîâ
Inc = 8
r = 1 ' Ñ÷åò÷èê Êàòåãîðèé
flag = True

Do
                            For e = 1 To 10000
                                            Òîâàðû(e).Î÷èñòèòü
                            Next
                            Òîâàð1.Î÷èñòèòü ' Î÷èñòêà ïåðåìåííûõ
и т.д.


Только почему-то вместо русских букв иероглифы скопировались ... извиняйте... (ну там работа с собственными классами - я думаю все равно не пригодится - главное тема освещена)