シートを指定してシート名を変更する場合

Sub ksChangeSheetName

Dim objDoc As Object, objSheet as Object
objDoc = ThisComponent
objSheet=objDoc.Sheets(0)　＜−−シート１番目を変える
objSheet.Name=”test”

End Sub

Activeになっているシート名を変更する場合

アクティブシートを取得してからNameプロパティを変更する。

sub ksChangeCurrentSheetName

dim activeSheet as Object
dim doc as object

doc = ThisComponent.sheets

activeSheet = ThisComponent.CurrentController.ActiveSheet
activeSheet.Name = “testCurrent”

end sub