Colocar Caption no botão via código no CALC

[pedrobb]

Private Sub Worksheet_Change(ByVal Target As Range)

Sheets("Funcis").Visible = True

CommandButton1.Caption = Plan14.Range("I2")

CommandButton2.Caption = Plan14.Range("I3")

End Sub

Em Excel uso a função acima para Alterar o rótulo dos Botões conforme as células I2 e I3, e funciona perfeitamente.

Mas não funciona na Planilha CALC, do OpenOffice (que uso no trabalho).

Alguém sabe como mudar a caption de botão no Calc?

Grato,

Pedro