Сохранение файла .xls как файла .xlsx через VBA

Question

Я сохраняю файл .xls как .xlsx.

Когда я пытаюсь открыть преобразованный файл .xls, он говорит, что книга может быть повреждена, но когда я делаю это вручную, она работает.

Sub LoopThroughFiles()
    Dim xFd As FileDialog
    Dim xFdItem As Variant
    Dim xFileName As String
    Set xFd = Application.FileDialog(msoFileDialogFolderPicker)
    If xFd.Show = -1 Then
        xFdItem = xFd.SelectedItems(1) & Application.PathSeparator
        xFileName = Dir(xFdItem & "*.xl*")
        Do While xFileName <> ""
            With Workbooks.Open(xFdItem & xFileName)

'-------------HERE GOES MY CODE so it's not worth putting it---------------------

                Dim IntialName As String
                Dim sFileSaveName As Variant
                IntialName = "Sample"
                sFileSaveName = Application.GetSaveAsFilename(InitialFileName:=InitialName, _
                  filefilter:="Libro de Excel (*.xls), *.xls")

                If sFileSaveName <> False Then
                    ActiveWorkbook.SaveAs sFileSaveName
                End If

            End With
            xFileName = Dir
        Loop
    End If
End Sub

Как сохранить файл .xls в .xlsx?