Extraer una hoja de un archivo y nombrarla!

hola, Manuel !

Tengo un archivo "algo pesado"... nomina de pagos al personal... con aprox. 10 hojas... al final solo se requiere una... la nomina final.
... como puedo exportar esa hoja, de manera automatica, sin formulas, con el mismo formato de la original, sin links ni vinculos
y sin que "arraste" el funcionamiento de los botones que tiene la original...

suponiendo que el tipo de botones que tiene incrustada la hoja son (botones) de la barra de herramientas "formularios"
y que las macros asignadas a ellos estan en modulos de codigo estandar (NO botones ActiveX con el codigo en el modulo de "la hoja") -?-
prueba con algo +/- como lo siguiente (una macro para copiar la hoja a un libro nuevo, desvincular su contenido y eliminar los botones)

si cualquier duda (o informacion adicional)... comentas ?
saludos,
hector.

Sub Copiar_hoja_nominas()
Dim Bot As Button
' hacemos una copia de la hoja en un libro nuevo ... '
Worksheets("hoja1").Copy
' convertimos a constantes las formulas en la hoja activa '
Cells.Copy
Cells.PasteSpecial xlPasteValues
[a1].Select
With ActiveSheet
' desvinculamos botones de formulario de cualquier macro '
For Each But In .Buttons
But.OnAction = ""
Next
' eliminamos los botones de formulario '
.Buttons.Delete
End With
' el libro activo esta listo para ser guardado como... SIN formulas, botones, macros, etc. '

' ahora, decide que hacer con el libro original (ThisWorkbook) '

End Sub

"Héctor Miguel"

Gracias por tu ayuda!

Justo lo que necesitaba.

Cordial saludo,

Manuel