Bueno despues de Tanto buscar Logre Hacer algo de lo que necesitas:
esto me funciona :
Ademas de Lo que tienes desbes crear 2 macros en un Modulo y escribe en cada una de ellas lo siguiente:
Sub Macro4()
'
' Macro4 Macro
' Macro grabada el 22-02-2007 por Pedro Armijo M
'
UserForm1.TextBox1 = Empty
UserForm1.TextBox1 = Range("a2").Value
Application.OnTime Now + TimeValue("00:00:01"), "Macro5"
Rem Este ejemplo ejecutará Macro4 en 01 segundos a partir de este momento.
End Sub
Sub Macro5()
'
' Macro5 Macro
' Macro grabada el 22-02-2007 por Pedro Armijo M
'
UserForm1.TextBox1 = Empty
UserForm1.TextBox1 = Range("a2").Value
Application.OnTime Now + TimeValue("00:00:02"), "Macro4"
Rem Este ejemplo ejecutará Macro5 en 02 segundos a partir de este momento.
Ademas tienes que agregar este codigo
Private Sub CommandButton1_Click()
Application.OnTime Now + TimeValue("00:00:01"), "Macro4"
End Sub
Una Vez que tienes todos ejecuta tu codigo:
Sub Tiempo()
Range("A2").Formula = "=NOW()"
Application.OnTime Now + TimeValue("00:00:01"), "Tiempo"
End Sub
Sub auto_Open()
Call Tiempo
End Sub
Despues de esto ejecuta El formulario y listo darle al boton y debería funcionarte
