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

マクロ初心者です。

こちらの質問(http://oshiete.goo.ne.jp/qa/2025849.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 回答日時： 2014/07/19 13:28

https://onedrive.live.com/?cid=B89CB784F5346675& …

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

この回答へのお礼

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

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

お礼日時：2014/07/19 19:46