Присвоение текущей даты в название файла с экспортом в PDF

[Alexnder]

добрый день, Уважаемые форумчане!
Подскажите, возможно ли решить такую задачу: (файл загрузить не получается возможно из-за разрешения .xlsm)

С помощью VBA:

1. Скрыть 3 столбца на Лист1
2. Сохранить файл с расширением PDF с присвоением к имени файла текущей даты и времени (год/месяц/дата часы/минуты/секунды)

Пока получается только с помощью макрекодера вот так:

Sub ЭКСПОРТ_PDF()
'
' ЭКСПОРТ_PDF Макрос
'

'
    ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, Filename:= _
        "C:\Microsoft Excel Worksheet.pdf", Quality:=xlQualityStandard, _
        IncludeDocProperties:=True, IgnorePrintAreas:=False, OpenAfterPublish:= _
        True
End Sub

[DMITRIY_78]

Alexnder, попробуй так

ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, Filename:= _
        "C:\" & Format(Date, "dd.mm.yyyy") & "Microsoft Excel Worksheet.pdf", Quality:=xlQualityStandard, _
        IncludeDocProperties:=True, IgnorePrintAreas:=False, OpenAfterPublish:= _
        True

[Alexnder]

Спасибо! Работает