Enviar una hoja por Email

Public Sub EnviarHojaPorCorreoElectrónico()
Dim strNombre As String
ActiveSheet.Copy
With ActiveWorkbook
.SaveAs "C:\ Admon y Economía con Integrales.xls"
.SendMail Recipients:="[email protected]", Subject:="Envío libro de Excel"
strNombre = .FullName
.Close
End With
Kill strNombre
End Sub

'En .Save AS “ cambiar la ruta donde se encuentra el archivo con su nombre
'En SendMail Recipients: = cambiar el Email [email protected]
'Aparecerá un aviso de Microsoft Outlook → Permitir
'y se remite al  Email indicado

Editado por moderación para insertar etiquetas al código y eliminar direcciones de correo...

Agradezco aclarar las reglas. Remito archivo corregido

Enviar Hoja por Email.rar

Me parece bien.