название скопированного листа из ячейки

Старая форма входа

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

Мир MS Excel » Вопросы и решения » Вопросы по VBA » название скопированного листа из ячейки (Макросы/Sub)

Альберт1983

Дата: Понедельник, 08.08.2016, 12:10 | Сообщение № 1

Группа: Пользователи

Ранг: Прохожий

Сообщений: 2

Репутация: 0 ±

Замечаний: 20% ±

Excel 2010

Добрый день!
Прошу помощи в решении проблемы!
Необходимо чтобы при копировании листа менялось название листа по ячейке F12 только в скопированном листе.

[vba]

Код

Range("I1").Select
Selection.Copy
Range("F12").Select
Selection.PasteSpecial Paste:=xlPasteAll, Operation:=xlAdd, SkipBlanks:= _
False, Transpose:=False
Range("F12").Select
Application.CutCopyMode = False
Sheets("бланк").Select
ActiveSheet.Buttons.Add(519, 1.5, 58.5, 26.25).Select
Sheets("бланк").Copy After:=Sheets(3)
For Each myWorksheet In Worksheets
If myWorksheet.Range("F12").Value <> "" Then
myWorksheet.Name = myWorksheet.Range("F12").Value
End If
Next
End Sub

[/vba]

Спасибо!