Как в макросе изменить разрешение сохраняемого файла с PDF на XLSX

[Кэр]

Прошу помощи знатоков работы с макросом!
   Немогу корректно поставить задачу макросу. Хочу что бы данный макрос сохранял файлы(по условиям приведенным ниже), но не в формате PDF, а  отдельными файлами EXCEL.

Код Выделить Развернуть

' Does a 'Save As' of the relevant worksheet to a PDF file
        ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, Filename:= _
        Directory & "\" & "Module " & Module & "\" & "Mechanical C1" & "\" & Equipment_Number & " C1 Mech Sheet (RU)" _
        , Quality:=xlQualityStandard, IncludeDocProperties:=True, IgnorePrintAreas _
        :=False, OpenAfterPublish:=False
Если необходим весь файл, или весь программный код VBA могу выложить, но там очень много лишней инфы, ну прям очень много!

[kuklp1]

Запишите макрорекордером "Сохранить как" и будет Вам счастье! Ели не разберетесь, то:

Код Выделить Развернуть

    ActiveSheet.Copy
    ActiveWorkbook.SaveAs Filename:=Directory & "\" & "Module " _
    & Module & "\" & "Mechanical C1" & "\" & Equipment_Number & " C1 Mech Sheet (RU)", FileFormat:=51
    ActiveWorkbook.Close
И оформляйте код тегами, кнопка # на панели. Видите, как у меня выглядит?