Alterar Rótulo dos Botões

[pedrobb]

Em Excel uso a função abaixo 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?

Private Sub Worksheet_Change(ByVal Target As Range)

Sheets("Funcis").Visible = True

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

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

End Sub

Grato,

Pedro