English VBA fails in Spanish excel

[Paulos72]

This code works in English Excel, but not in the Spanish Excel - what do i need to change for it to work!

--------
Function SumColor(rColor As Range, rSumRange As Range)
''''''''''''''''''''''''''''''''''''''
'Written by Ozgrid Business Applications
'www.ozgrid.com
'Sums cells based on a specified fill color.
'''''''''''''''''''''''''''''''''''''''
Dim rCell As Range
Dim iCol As Integer
Dim vResult

iCol = rColor.Interior.ColorIndex
For Each rCell In rSumRange
If rCell.Interior.ColorIndex = iCol Then
vResult = WorksheetFunction.Sum(rCell) + vResult
End If
Next rCell
SumColor = vResult
End Function

 

[fairwinds]

Hi,

I see no reason why language version should affect this code. Works in swedish.

Check that Macros are enabled etc.

 

[Paulos]

spanish /english vba

i suspect its something to do with the naming of the "module" - i can´t quite figure it out though.

 

[Greg Truby]

I have no way to test this - but maybe change "Sum" to "Suma" or "Sumar" or whatever the function's name is in Spanish?<ul>[*]vResult = WorksheetFunction.Sum(rCell) + vResult [/list]