OpenOffice.info

Sub chooseSheet
	Dim oCalcDoc as Object
	oCalcDoc = ThisComponent
	oCalcDoc.currentController.ActiveSheet = oCalcDoc.sheets(2)
End Sub

[code]
Sub chooseSheet
Dim oCalcDoc as Object
oCalcDoc = ThisComponent
oCalcDoc.currentController.ActiveSheet = oCalcDoc.sheets(2)
End Sub[/code]