diff options
| author | Behrend Cornelius <bc@openoffice.org> | 2001-09-12 14:50:40 +0000 |
|---|---|---|
| committer | Behrend Cornelius <bc@openoffice.org> | 2001-09-12 14:50:40 +0000 |
| commit | 5a34f7ab844f03e53cb3a11c11a4f75e9e48617e (patch) | |
| tree | 13875d0e821ae0695d16574121ca5dc525d30548 /wizards/source/euro/ConvertRun.xba | |
| parent | a4a274098baf1028b08799608171a0d258d2e3f4 (diff) | |
#91755# 'CheckFormatType' inserted
Diffstat (limited to 'wizards/source/euro/ConvertRun.xba')
| -rw-r--r-- | wizards/source/euro/ConvertRun.xba | 6 |
1 files changed, 4 insertions, 2 deletions
diff --git a/wizards/source/euro/ConvertRun.xba b/wizards/source/euro/ConvertRun.xba index a617b923a365..2461ef293c0a 100644 --- a/wizards/source/euro/ConvertRun.xba +++ b/wizards/source/euro/ConvertRun.xba @@ -180,8 +180,10 @@ Dim oSheetRanges as Object oSheetRanges = oPreSelRange.CellFormatRanges.createEnumeration While oSheetRanges.hasMoreElements oRange = oSheetRanges.NextElement - ConvertCellCurrencies(oRange) - SwitchNumberFormat(oRange, oFormats, sEuroSign) + If CheckFormatType(oRange) Then + ConvertCellCurrencies(oRange) + SwitchNumberFormat(oRange, oFormats, sEuroSign) + End If Wend Else ConverttheHardWay(SelList(), False, True) |