Змініть формат збереження файлу у VBA

Я читав це питання: Чи можна розділити електронну таблицю на кілька файлів на основі стовпця в Excel 2007?

У мене є питання щодо "Зберегти в такому ж форматі, як оригінальна робоча книга", з яким я сподіваюся, що ви можете мені допомогти.

Я використовую макрос з файлом CSV, але хочу мати остаточні файли, такі як XLS.

Як можна змінити макрос для збереження у такому форматі (відмінному від оригінального)?

Ось типовий зразок:

Sub Sample_Cvs_To_Xlsx()
    ChDir "C:\TestFolder"
    Workbooks.Open Filename:="C:\TestFolder\WhatEver.csv"
    '
    ' perform processing
    '
    ActiveWorkbook.SaveAs Filename:="C:\TestFolder\WhatEver.xlsx", FileFormat:= _
        xlOpenXMLWorkbook, CreateBackup:=False
    ActiveWorkbook.Close
End Sub