Como cambiar nombre a hoja según el valor de una celda usando macros

Estimados, les pido ayuda con lo siguiente, tengo una macro creada que finaliza de la siguiente forma.

ActiveSheet.Shapes.Range(Array("1 Picture")).Select
ActiveSheet.Shapes.Range(Array("5 Snip Diagonal Corner Rectangle")).Select
Selection.Cut
ActiveSheet.Shapes.Range(Array("4 Snip Diagonal Corner Rectangle")).Select
Selection.Cut

End Sub

y necesito que al final (después de "selection.cut") me cambié el nombre de la hoja actual por el valor que tengo en la celda c6.

Inserté el código

Sub NombreHoja()
ActiveSheet.Name = Range("A1").Value

Pero me dice que falta End Sub.

Por favor su ayuda.