Excel - nombres propios, hora y fecha

Buenos dias, necesito ayuda en esto; necesito ir llenando una hoja de calculo en la cual la columna A;B;C y D van llenadas con nombres propios y quiero que a medida que se valla cargando me aparezcan las mayusculas como en NOMPROPIO, he podido lograr esto pero escribiendo los nombres en otra celda ya que si comienzo en A1 y uso =nompropio(A1) me un error de formula circular.
mi otra consulta es si tengo forma de que a medida que voy cargando nombres me aparezca la hora y la fecha como la formula =ahora() automaticamente al tildar una casilla de verificacion.
desde ya muchas gracias y un gran abrazo!!!!

Hola Juan:
Tu solución es mediante un evento...
1.Haz clic derecho en la etiqueta de la hoja y seleccion "Ver Codigo"
2. Copia y pega el siguiente código

Private Sub Worksheet_Change(ByVal Target As Range)
' ESTE APLICA PARA CAMBIOS EN LA COLUMNA A
If Not Intersect(Target, Range("A:A")) Is Nothing Then
Target = UCase(Target)
Target.Offset(0, 1).Value = Date + Time
End If
End Sub

Listo... con esto todo lo que escribas en la columna A siempre será en mayusculas y en la columna B pondrá la fecha y hora de modificación.

Saludos

Servando:
exelente, no te imaginas el problema que me solucionaste, la verdad, agradesco muchisimo tu ayuda.
Te hago la ultima consulta ¿se podra hacer que la fecha y la hora aparezcan en distintas columnas? te comento que estube cambiando valores del codigo que me pasaste pero no pude conseguir lo que te estoy consultando.
Disculpa mi abuso de confiansa.
un gran abrazo!

Corrección al anterior...

El anterior cambia a MAYUSCULAS.

Este evento pone el texto de la Columna A tipo Nombre Propio:

Private Sub Worksheet_Change(ByVal Target As Range)
' ESTE APLICA PARA CAMBIOS EN LA COLUMNA A
If Not Intersect(Target, Range("A:A")) Is Nothing Then
Target = StrConv(Target, vbProperCase)
Target.Offset(0, 1).Value = Date + Time
End If
End Sub

Saludos