Convertir mediante un boton formulas a datos en otra hoja

hola, (...) ???

Tengo una hoja que se llama formato, donde le inserte un boton con el siguiente codigo:
Private Sub CommandButton1_Click()
Worksheets("Formato").Copy after:=Worksheets(Worksheets.Count)
End Sub
funciona muy bien, em copia la hoja "formato" al final pero ahori quiero que con ese mismo boton me copie la hoja
pero me convierta todas las formulas en datos ademas que en la copia de la hoja formato
no se copie con todo y codigos solo los datos. (es decir sain el boton sin macros solo datos)

al hacer un Worksheets(...).Copy la hoja copiada "va con todo" (o sea) lo que no quieras que permanezca...
o no debera estar en la hoja... o deberas removerlo despues de copiada ;)
- quitarle formulas, no hay problema
- quitarle objetos incrustados, tampoco seria un problema (incluso los ActiveX como el CommandButton1)
- eliminar sus codigos en el modulo "de clase" ???... (aqui podrias encontrar "imponderables") :-((

-> cambia de macro por una igual en un modulo de codigo estandar y EVITA los objetos incrustados con macros asignadas
y llamas a la macro por atajo de teclado o por los metodos "tradicionales" (Alt + F8... menu herramientas / macro / macros..)

Sub Macro_normal()
Worksheets("formato").Copy After:=Worksheets(Worksheets.Count)
ActiveSheet.UsedRange.Value = ActiveSheet.UsedRange.Value
End Sub

saludos,
hector.