Hojas de cambio de nombre en base a una célula

[schiavinatto]

He encontrado en el manual “Aprendiendo OOo Basic” Mauricio Baeza Servín, esta macro:

Sub CambiarNombreHoja1()
Dim oHojas As Object
	oHojas = ThisComponent.getSheets()
	'Cambiamos el nombre de la hoja “Hola”, por “Prueba”
	oHojas.getByName("Hola").setName( "Prueba" )
End Sub

Sin embargo tengo que cambiar de haber basado una celda de hoja de cálculo.

Cómo establecer la macro?

[mariosv]

En el capitulo 6.2.1 del magnifico libro de Mauricio tienes como hacer referencia a hojas individuales.