Mostrar la Hoja en excel

[3pies]

Esto te muestra la hora en la celda A1:
Sacado de aquí: http://www.mvps.org/dmcritchie/excel/datetime.htm#clock

Dim stopit As Boolean 'on top of module!
Sub startclock() 'assign start button
stopit = False
clock
End Sub
Sub clock()
If stopit = True Then Exit Sub
ActiveWorkbook.Worksheets(1).Cells(1, 1).Value = _
Format(Now, "hh:mm:ss")
Application.OnTime (Now + TimeSerial(0, 0, 1)), "clock"
End Sub
Sub stopclock() 'assign stop button
stopit = True
End Sub

Salu2