Присвоение имени файла из ячейки.

[Посетитель]

Доброго денёчка, помогите чайнику.
Записал макрос (все что умею) но ни как не могу сделать так что бы имя файла при сохранении перетягивалось из ячейки либо (B1 лист2) либо же из (G3 лист 1). Прикрепил сам файл и код ниже указал.
Сам код:
Sub PDF()
'
' PDF Макрос
'

'
    Sheets("Лист1").Select
    ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, Filename:= _
        "C:\Users\User\Desktop\Файл.pdf", Quality:=xlQualityStandard, _
        IncludeDocProperties:=True, IgnorePrintAreas:=False, OpenAfterPublish:= _
        False
End Sub

[ФАЙЛЫ ВАШИ ПОЛУЧЕНЫ - НЕТ НЕОБХОДИМОСТИ ВЫКЛАДЫВАТЬ ИХ ПОВТОРНО]

[Администратор]

Цитата:
перетягивалось из ячейки либо (B1 лист2) либо же из (G3 лист 1)

Вы примите решение, из какой ячейки надо извлекать, и сообщите.

[Посетитель]

Пусть будет из этой (B1 лист2). Данные одни и те же в каждой ячейке, поэтому так написал.

[Администратор]

Написал вам два письма на почту с заголовком "Письмо с Форума по VBA, Excel и Word". Написал именно на почту, а не на форум.

Путь укажите свой, я изменил ваш путь.

Sub PDF()
    Sheets("Лист1").Select
    ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, _
        Filename:="C:\Users\User\Desktop\" & Worksheets("Лист2").Range("B1").Value & ".pdf", _
        Quality:=xlQualityStandard, IncludeDocProperties:=True, IgnorePrintAreas:=False, _
        OpenAfterPublish:=False
End Sub

[Посетитель]

Добрый день, все работает, спасибо.