COMO NOMBRAR HOJAS (Cuando el nombre esta en una Celda de la misma hoja)

Dim w As Worksheet
For Each w In ThisWorkbook.Worksheets w.Name = w.Range("B8")
Next w
End Sub

luego vas a cada una de tus hojas y colocas lo siguiente

Private Sub Worksheet_Change(ByVal Target As Range)

If Target.Address = "$B$8" Then
ActiveSheet.Name = Range("B8")
End If
End Sub

Fuente:http://www.todoexpertos.com/categorias/tecnologia-e-internet/software-y-aplicaciones/microsoft-excel/respuestas/1936210/nombre-de-hoja-segun-datos-de-una-celda