オープンオフィスでシート名をセルから参照するには

質問

マクロ初心者です。

こちらの質問(http://okwave.jp/qa/q2025849.html)と同じような内容ですが、
試行錯誤してもOpenOffice Calcでできなかったため質問させていただきます。

OpenOffice Calcで、セル「Ａ１」に入力されてある文字を対応するシートの名前に自動で設定するには、どのようなマクロを記述すればいいのでしょうか？

エクセルで使用できる
Private Sub Workbook_SheetChange(ByVal Sh As Object, ByVal Target As Range)
If Target.Address = "$A$1" Then Sh.Name = Target.Range("A1").Value
End Sub
をVBA互換モードで試しましたが、無理そうでしたのでOpenOffice.org　Basicで使えるように変換して記述したいところです。
ですが、オープンオフィスのThisWorkbookはどのように使うのかなどさっぱり理解できなかったので、どなたか詳しい方教えてください。

よろしくお願いします。

回答No.1

himajin100000

あるシートをアクティブにし、Mainを実行すると、そのシートのA1の内容が変更されたとき、そのシートの名前をA1の内容に変更する。

お礼

回答ありがとうございます！

できましたが、それぞれのシートに対して実行しないといけないようですので、できれば全てのシートに一度にこのマクロを実行したいものです。
その方法をご存知でしたら、ぜひ教えていただきたいです。