Macro para copiar a hoja nueva con condiciones

Buenas, quisiera saber como puedo modificar el siguiente macro que ajunto para que:

- Cuando me haga la copia no solo no copie formulas, sino tampoco macros ni los botones de macro, es decir que queda la hoja solo y exclusivamente con los valores, formatos de celda, impresión etc...

- Y además, que en vez de preguntar por la carpeta donde se desea guardar, guarde la copia en el escritorio automáticamente con el nombre de la celda C5.

PD: Muchas gracias a Dam por pasarme el macro y darme instrucciones de uso.

Sub copiahoja()
'Por.dam
On Error Resume Next
ActiveSheet.Copy
Cells.Select
Selection.Copy
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Application.CutCopyMode = False
Set navegador = CreateObject("shell.application")
carpeta = navegador.browseforfolder(0, _
"SELECCIONE UNA CARPETA PARA COPIAR EL ARCHIVO", 0, "C:\").items.Item.Path
If carpeta <> "" Then
If Right(carpeta, 1) <> "\" Then
carpeta = carpeta & "\"
End If
If Range("C5") <> "" Then
arch = Range("C5")
Else
arch = "archivo"
End If
Application.DisplayAlerts = False
ActiveWorkbook.SaveAs Filename:=carpeta & arch & ".xls", FileFormat:=xlNormal, _
Password:="", WriteResPassword:="", ReadOnlyRecommended:=False, CreateBackup:=False
End If