¿Cómo nombrar un libro con la fecha y el contenido de una celda?

tengo esta macro para enviar el libro activo funciona pero lo que quiero es que cuando lo envíe en el nombre del libro aparezca la fecha y el contenido de la celda c6.

a continuación la macro

Sub Enviar_Correo()

ActiveWorkbook.SendMail _
Recipients:="[email protected]", _
Subject:="Parte de producción bielomatik"

end sub

desde ya muchas gracias por su ayuda.