Макрос смены имени листа по имени ячейки

Страница 1 из 1 1
Модератор форума: irakitin2014

Дата: Суббота, 30.06.2018, 12:08 | Сообщение # 1

Генерал-майор

Группа: Модераторы

Сообщений: 312

Репутация: 6

Статус: Offline

Совсем простенький макрос, позволяющий поменять имя листа на имя, записанное в ячейке , к примеру, А1

Код

Private Sub Worksheet_Change(ByVal Target As Range)
If Intersect([A1], Target) <> "" Then Me.Name = [A1]
End Sub

Прикрепления: 5823707.xlsm (12.9 Kb)

для спасибов ЯД 41001877306852