Вставка нового листа.

[tae1980]

Вставить новый лист вобщем не проблем. Но как вставить его так что бы он был в самом конце списка независимо от текущего листа?..

[EducatedFool]

Вставка производится вручную, или макросом?

Если макросом, то примерно так:

Sub test()
    Set ПервыйЛист = ThisWorkbook.Worksheets.Add(ThisWorkbook.Worksheets(1))
    ПервыйЛист.Name = "ПервыйЛист"
    Set ПоследнийЛист = ThisWorkbook.Worksheets.Add(, ThisWorkbook.Worksheets(ThisWorkbook.Worksheets.Count))
    ПоследнийЛист.Name = "ПоследнийЛист"
End Sub

[tae1980]

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

Вставка производится вручную, или макросом?
Вставка происходит макросом.

Если макросом, то примерно так:

Sub test()
    Set ПервыйЛист = ThisWorkbook.Worksheets.Add(ThisWorkbook.Worksheets(1))
    ПервыйЛист.Name = "ПервыйЛист"
    Set ПоследнийЛист = ThisWorkbook.Worksheets.Add(, ThisWorkbook.Worksheets(ThisWorkbook.Worksheets.Count))
    ПоследнийЛист.Name = "ПоследнийЛист"
End Sub

Спасибо! Разобрался. Теперь буду копать дальше сам.

[SAS888]

Можно чуть проще.
1. Добавляем новый лист последним, затем присваиваем ему имя:

Sheets.Add After:=Sheets(Sheets.Count)
    ActiveSheet.Name = "Имя_Нового_листа"

2. Добавляем новый лист сразу с присвоением ему имени, затем перемещаем его в конец:

Sheets.Add.Name = "Имя_Нового_листа"
    ActiveSheet.Move After:=Sheets(Sheets.Count)