Как принудительно сохранить в .xls

[Nicos]

Здравствуйте умные люди, помогите подправить код для успешного сохранения из любой версии офиса:
filesaveName = Application.GetSaveAsFilename(Initi alFileName:="c:\Имя файла", _
fileFilter:="Excel (*.xls), *.xls", _
Title:="Куда сохранить ?")

If filesaveName <> False Then
NewBook.SaveAs Filename:=filesaveName
MsgBox "Файл: " & filesaveName & " успешно сохранен !"
ActiveWorkbook.Close

это работает успешно на 2003 версии и на 2007 тоже сохраняет, только вот по умолчанию новые офисы сохраняют в xlsx формате а расшинренее остается старое, может какую проверку на версию организовать а потом сохранять. Нужно чтобы один человек запустил на 2003 нормально а другой на 2010 офисе тоже сохранил и потом успешно открыл файл..
Хоть намекните как это делается пожалуйста.

[doober]

Воэможно так

filesaveName = Application.GetSaveAsFilename(InitialFileName:="c:\Имя файла", fileFilter:="Excel (*.xls), *.xls", _
Title:="Куда сохранить ?")

If filesaveName <> False Then
NewBook.SaveAs Filename:=filesaveName & ".xls", FileFormat:=xlExcel8
MsgBox "Файл: " & filesaveName & " успешно сохранен !"
ActiveWorkbook.Close

End If

[Nicos]

Вот это круто действительно, спасибо большое, работает, я в восторге
и быстро ответили, благодарю !