Ayuda en este macro que no Funciono

Hola amigos aquí le mando el macro que nunca me funcionó y le explicó por
cada paso cual es la función de este macro.



Gracias

KM**VE



Lo que hace el macro tiene la opción que envía la hoja por e mail o guardar
la hoja bajo el nombre que tiene celda (C12) y lo protege por una clave es
(5599) y guarda la hoja en una ruta en el disco duro, la ruta esta en la
celda (P1) y que copia solamente la hoja que esta a la vista desde las
celdas (A1; M1) (A62; M62)



Lo que cesecito que haga el macro eso lo que dice allí en las dos Lina


Sub GuardarEnviarHojaEspecial()
Dim Clave As String
Clave = "5599"
Worksheets("especial").Copy
Cells.Copy
Cells.PasteSpecial xlPasteValues
Range("C12").Select
Application.CutCopyMode = False
ActiveSheet.Protect Clave, True, True, True, False
With ActiveWorkbook
.Protect Clave, True, True
.SaveAs Range("P1"), xlWorkbookNormal
.SendMail "NOkaledmourad@SPAMhotmail.com", "aqui esta el resumen'"
.Close
End With
End Sub