Самоучитель VBA


РЮАКХЖЮ" Then Sheets("СводнаяТаблица") Delete



рЮАКХЖЮ" Then Sheets("СводнаяТаблица").Delete

End If

Next Лист

' Создается новый рабочий лист с именем Сводная









Начало  Назад  Вперед