Error macro

[qandeal]

Buenas,

He encontrado esta macro, y me da error (Variable de objeto no establecida) en la linea 7.
Alguien es capaz de ver donde esta el error ?
------
Dim i As Integer

Sub ChangeCellColor()

Dim d As Date
d = Now
Application.OnTime d + TimeValue("00:00:03"),"ChangeCellColor"
i = i + 1
Range("C6:C6").Interior.ColorIndex = Choose(i,3,0,3,0,3,0)

If i = 6 Then
i = 0
Application.OnTime d + TimeValue("00:00:03"),"ChangeCellColor",,False
End If

End Sub
-----

[Longi]

Buenas!
Yo normalmente me muevo con base, así que quizás escriba una burrada, pero para definir el rango, primero deberás definir dónde, es decir, el documento y la página; algo así como:
oDocumento= ThisComponent.getCurrentController
oSheet= oDocumento.getActiveSheet()
oRange = oSheet.getCellRangeByPosition(2,6,2,6) '(Corresponde con C6:C6)
Aunque también puedes llamar a la celda individualmente:
oCell=oSheet.getCellByPosition(2,6)
A ver si te sirve.

Un saludo!

[qandeal]

Buenas!
Yo normalmente me muevo con base, así que quizás escriba una burrada, pero para definir el rango, primero deberás definir dónde, es decir, el documento y la página; algo así como:
oDocumento= ThisComponent.getCurrentController
oSheet= oDocumento.getActiveSheet()
oRange = oSheet.getCellRangeByPosition(2,6,2,6) '(Corresponde con C6:C6)
Aunque también puedes llamar a la celda individualmente:
oCell=oSheet.getCellByPosition(2,6)
A ver si te sirve.

Un saludo!

Gracias por tu interes, pero creo que me equivoque y este macro que encontre es para Excel, tal vez por esto no funciona en LibreOffice Calc.