Pues con el comando NOW o AHORA si pones ()HOY te da unicamente la fecha
te puedes dar una idea de aqui
MsgBox " Now " & Now
Sheets("Hoja1").Range("A1").Value = Now
End Sub
algo asi seria ya no recuerdo e smas o menos asi paa que te lo muestre pero al cerrar el ejercicio si a eso te refieres
y este seria el comando o formula para una celda directamente en la hoja
=SI(A1\"\";AHORA();\"\") o NOW
si deseas ponerlo en encabezado o pie de pagina qui dice como
http://office.microsoft.com/es-es/ex...896653082.aspx
no s eme viene nada mas a la mente y por internet no encontre mucho que te pueda ayudar :S