Modificar código que envía por correo hoja activa

tengo la sig. Código

Sub EviarHojaEmail()
'
Dim NombreArchivo As String
Dim RutaTemporal As String
Dim Mensaje As String
'
On Error Resume Next
'
Mensaje = "Estás a punto de enviar la hoja activa por email. Ingresa el nombre con que se enviará el archivo o deja en blanco para que el archivo tenga el nombre de la hoja."
NombreArchivo = InputBox(Mensaje, "TITUOLO")
'
If NombreArchivo = "" Then NombreArchivo = ActiveSheet.Name
'
RutaTemporal = Environ("temp") & "\"
NombreArchivo = RutaTemporal & NombreArchivo & ".xlsx"

ActiveWorkbook.ActiveSheet
Application.DisplayAlerts = False
ActiveWorkbook.SaveAs NombreArchivo
Application.DisplayAlerts = True
CommandBars.ExecuteMso ("FileSendAsAttachment")
ActiveWorkbook.Close False
Kill NombreArchivo
'
On Error GoTo 0
'
End Sub

Esta correcto y me sirve... Lo único que necesito es que me lo envíe con valores y con formatos...

No que envíe la hoja tal cual esta (con fórmulas)