Добрый вечер! Не пойму в чём ошибка
Сначала проверяю, существует ли лист с таким именем, если нет - добавляю, если есть перехожу на этот лист
Dim MyDay As String
Set Sh1 = ThisWorkbook.Sheets(MyDay) 'Если листа нет в этом месте Выдаёт ошибку Subscript out of range. Почему? Если есть, то всё нормально
If Sh1 Is Nothing Then
Set Sh1 = ThisWorkbook.Sheets.Add
Sh1.Name = MyDay
Else
Set Sh1 = ThisWorkbook.Sheets(MyDay)
Sh1.Activate
On Error Resume Next
Sh1.Cells.Clear
End If
Как сделать, чтобы лист подсаживал в конец, после всех листов?
Спасибо
Сначала проверяю, существует ли лист с таким именем, если нет - добавляю, если есть перехожу на этот лист
Dim MyDay As String
Set Sh1 = ThisWorkbook.Sheets(MyDay) 'Если листа нет в этом месте Выдаёт ошибку Subscript out of range. Почему? Если есть, то всё нормально
If Sh1 Is Nothing Then
Set Sh1 = ThisWorkbook.Sheets.Add
Sh1.Name = MyDay
Else
Set Sh1 = ThisWorkbook.Sheets(MyDay)
Sh1.Activate
On Error Resume Next
Sh1.Cells.Clear
End If
Как сделать, чтобы лист подсаживал в конец, после всех листов?
Спасибо