Добрый день!
Прошу помощи в решении проблемы!
Необходимо чтобы при копировании листа менялось название листа по ячейке 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]
Спасибо!