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

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?

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