Boton Grabar.

Hola, MN !

... crear un boton en una hoja que me guarde con el "nombre" que aprarece en una celda.

si el boton lo creas con la barra de herramientas 'formularios', asignale una macro +/- como la siguiente:
al comrarar textos en vba, =>es 'diferente'<= 'ABC' que 'abc' o 'aBc', o [...]
['convierto' los nombres a minusculas -y 'ajusto' la extension- para evitar 'errores tipograficos' al 'compararlos']
en un modulo de codigo 'normal' ==Sub Nombre_Libro()
Dim Actual As String, Nuevo As String
Actual = LCase(ThisWorkbook.Name)
Nuevo = LCase(ThisWorkbook.Worksheets("Hoja1").Range("a1"))
If Right(Nuevo, 4) <> ".xls" Then Nuevo = Nuevo & ".xls"
If Actual <> Nuevo Then
ThisWorkbook.SaveAs _
FileName:=Nuevo, _
FileFormat:=xlWorkbookNormal
Else: MsgBox "No hay cambio en el nombre."
End If
End Sub

si el boton lo creas con la barra de herramientas 'cuadro de controles'...
=>el codigo 'va' en el modulo de 'la hoja' en el evento '_Click' del boton<
saludos,
Héctor.