Вопрос : Добавьте рабочий лист с именем значения клетки

В клетки A3 до A10 я хочу вписать имя, если будет плата с тем именем не делают ничего конец режима, если для того чтобы не создать рабочего лист с тем name. class=

Ответ : Добавьте рабочий лист с именем значения клетки

Попытайтесь это, оно закрепит петлеть через A3: A10 и создают все листы уже не существуют.

1: 2: 3: 4: 5: 6: 7: 8: 9: 10: 11: 12: 13: 14: 15: 16: 17: 18: 19: 20: 21:

Sub AddWorksheets () Затемните I как интежер Для I = от 3 до 10 Если не WorksheetExists, то (листы («Sheet1»). Клетки (I, 1).Value) после этого Sheets.Add ActiveSheet.Name = листы («Sheet1»). Клетки (I, 1).Value Еще Закончитесь если Затем Подводная лодка конца Общественная функция WorksheetExists (ByVal WorksheetName как шнур) как булевско На резюме ошибки затем WorksheetExists = (листы (WorksheetName). Названное <> "") На ошибке переход 0 Функция конца

Book2.xls (19 KB) (тип архива детали) 

Пример