diff options
Diffstat (limited to 'wizards/source/euro/ConvertRun.xba')
-rw-r--r-- | wizards/source/euro/ConvertRun.xba | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/wizards/source/euro/ConvertRun.xba b/wizards/source/euro/ConvertRun.xba index 5e4f06e01491..e91d12e7a81d 100644 --- a/wizards/source/euro/ConvertRun.xba +++ b/wizards/source/euro/ConvertRun.xba @@ -288,9 +288,9 @@ End Sub ' Returns 'True' or 'False' Function FieldInList(LocList(), MaxIndex as integer, ByVal LocField ) As Boolean Dim i as integer - LocField = Ucase(LocField) + LocField = UCase(LocField) For i = Lbound(LocList()) to MaxIndex - If Ucase(LocList(i)) = LocField then + If UCase(LocList(i)) = LocField then FieldInList = True Exit Function End if |