OpenOffice - Sumatorio

Hola:

Agradecería que alguien experimentado en macros OO codificara esta función VBA.

Function sumatorio(x)

'
' sumatorio(x)
'

' Definición de las variables locales utilizadas (aparte del parámetro x)
' sólo son necesarias en el caso de que se utilicen otras variables globales
' con el mismo nombre.
'

Dim nf ' número de filas
Dim nc ' número de columnas
Dim f ' índice de fila
Dim c ' índice de columna
Dim sx ' suma acumulada de los valores de x

' Obtención del número de filas y del número de columnas de rango utilizado

nf = x.Rows.Count
nc = x.Columns.Count

sx = 0
For f = 1 To nf Step 1
For c = 1 To nc Step 1
sx = sx + x(f, c)
Next c
Next f

sumatorio = sx


End Function