Почему не создаётся лист?

[Basarga]

Идея в следующем: если листа "преобразованные данные" нет, то создаём после всех имеющихся листов лист с названием "преобразованные данные". Если же такой лист существует, то удаляем на нём все данные.

    If Sheets("преобразованные данные") Is Nothing Then Sheets.Add(, Sheets(Sheets.Count)).Name = "преобразованные данные" Else: Sheets("преобразованные данные").Cells.Delete

Когда лист есть, всё работает. Но когда листа нет, выдаёт ошибку "Run-time error 9: Subscript out of range"

Код подсмотрел на http://www.excel-vba.ru/chto-umeet-e...-list-v-knige/

[EducatedFool]

Потому что ошибка возникает при этой проверке:

If Sheets("преобразованные данные") Is Nothing Then

т.к. вы обращаетесь к несуществующему листу

напишите так:

    On Error Resume Next: Err.Clear: Sheets("преобразованные данные").Cells.Delete ' пытаемся очистить ячейки
    If Err Then Sheets.Add(, Sheets(Sheets.Count)).Name = "преобразованные данные" ' если ошибка - значит, листа не было

[Basarga]

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

напишите так:

    On Error Resume Next: Err.Clear: Sheets("преобразованные данные").Cells.Delete ' пытаемся очистить ячейки
    If Err Then Sheets.Add(, Sheets(Sheets.Count)).Name = "преобразованные данные" ' если ошибка - значит, листа не было

Спасибо. А можно добавить какой-нибудь параметр, чтобы при создании листа остаться на активном? Имя активного листа заранее не известно, поэтому сделал так

    asname = ActiveSheet.Name
    On Error Resume Next: Err.Clear: Sheets("преобразованные данные").Cells.Delete
    If Err Then Sheets.Add(, Sheets(Sheets.Count)).Name = "преобразованные данные"
    Sheets(asname).Select

[The_Prist]

Там, откуда Вы взяли код вовсе не так написано, поэтому у Вас ошибки лезут.

    Dim wsSh As Worksheet
    On Error Resume Next
    Set wsSh = Sheets("Новый лист")
    If wsSh Is Nothing Then Sheets.Add(, Sheets(Sheets.Count)).Name = "Новый лист"

Разница в данном случае существенна оказалась.
Кстати, там даже функция есть, которая проверяет наличие листа, с ней проще.

Активацию листа Вы сделали достаточно оптимально, других путей нет.

[SAS888]

В подобных случаях я не проверяю ни существование листа, ни какие-либо другие условия, а просто удаляю лист, игнорируя возможную при этом ошибку, и создаю его заново:

Dim ws As Worksheet: Set ws = ActiveSheet
Application.ScreenUpdating = False: Application.DisplayAlerts = False
On Error Resume Next: Sheets("преобразованные данные").Delete: On Error GoTo 0
Sheets.Add(, Sheets(Sheets.Count)).Name = "преобразованные данные"
ws.Activate

Если же, после создания нового листа требуется создавать таблицу, форматировать ячейки, вставлять формулы, формировать "шапку", изменять шрифт, цвет, ширину столбцов и т.д., то целесообразно не делать это программно, а заготовить скрытый лист-шаблон, и, по мере надобности, копировать его и изменять имя.