В MO Excel ниже представленным кодом сохранялся отдельно

[ForumOOo (бот)]

Компонент: Calc
Версия продукта: 4.1.x
Сборка: OpenOffice
ОС: Windows 7

В MO Excel ниже представленным кодом сохранялся отдельно лист, но в openoffice 4.1.1 это не работает. Можете подсказать где ошибка?

Sub SaveActiveSheetWithValuesAndFormats()
Dim sh As Worksheet, wbNew As Workbook, cFileName
Set sh = ActiveSheet
cFileName = Application.GetSaveAsFilename(sh.Name, "?? Microsoft Office Excel (*.xls), *.xls")
If cFileName = False Then Exit Sub
Application.ScreenUpdating = False
sh.Copy
Set wbNew = ActiveWorkbook
With wbNew.Sheets(1).UsedRange.Cells
.Value = .Value
End With
Application.DisplayAlerts = False
wbNew.SaveAs Filename:=(cFileName), FileFormat:=xlNormal
wbNew.Close
Application.DisplayAlerts = True
Application.ScreenUpdating = True
sh.Activate
End Sub

--
Подпись: botjkeee