Копирование в новую книгу с именем из ячейки

[oleg_sh]

Друзья, помогите, пожалуйста, с макросом.

Я искал по форуму, есть подобные решения, но всё не то.

Возможно ли такое решение задачи?

Необходимо скопировать лист 1 из основного файла в новый файл с именем из ячейки D9, копируемый лист должен иметь имя из ячейки F7.
Новый файл должен создаваться автоматически в той же директории где и основной. Если название такого файла уже существует, то не создавать новый, а просто добавить в него следующий лист, который будет иметь имя из ячейки F7.
Т.е. в основной книге D9 может быть одинаковым, а F7 будет меняться.

[Казанский]

Пробуйте. Можете разместить макрос в Personal.xls. Он работает с текущим листом.

Sub oleg_sh()
Dim ash As Worksheet, n$, m$
Set ash = ActiveSheet
n = ActiveWorkbook.Path & "\" & [D9]
m = Dir(n & ".xl*")
If m = "" Then
    ActiveSheet.Copy
    ActiveSheet.Name = ash.[F7]
    ActiveWorkbook.Close True, n & ".xls"
    MsgBox "Создан новый файл", vbInformation
Else
    With Workbooks.Open(ActiveWorkbook.Path & "\" & m)
        ash.Copy After:=.Sheets(.Sheets.Count)
        On Error Resume Next
        ActiveSheet.Name = ash.[F7]
        If Err Then MsgBox "Невозможно переименовать лист", vbCritical: Exit Sub
        .Close True
    End With
    MsgBox "Лист скопирован", vbInformation
End If
End Sub

[oleg_sh]

Сообщение от Казанский

Пробуйте. Можете разместить макрос в Personal.xls. Он работает с текущим листом.

Sub oleg_sh()

Спасибо, Казанский, всё работает.
Нельзя ли в Ваш код добавить, чтобы копировались только значения без фомул, если они существуют и (без кнопок, если это возможно).

И ещё при открытии созданного файла всегда выскакивает окно, что расширение файла отличается от указываемого.

Personal.xls не совсем понял что это. Посмотрите, я так сделал?

[oleg_sh]

Огромное спасибо, Казанский!!!
Жаль, что больше никто не предложил своего решения.
Т.к. в решении Казанского копируется лист, а было бы хорошо только данные как при "специальной вставке/только значения", но с сохранением формата.
Тогда и Excel не ругался бы, а то это вечная война форматов 2003 и 2007.
Я вообще не верил, что моя задачка выполнима! Супер!