アクティブシートの名前を取得してから、

removeByNameメソッドで削除します。

ただし、この方法だと確認のメッセージなどでませんので、

注意が必要です。

sub ksRemoveActiveSheet

dim activeSheet as Object
dim doc as object

doc = ThisComponent.sheets

activeSheet = ThisComponent.CurrentController.ActiveSheet
doc.removeByName( activeSheet.name )

end sub