Veja aqui como inserir um relógio que atualiza em tempo real em uma planilha do Excel.
Código mostrado no vídeo:
‘ ‘ ‘ ‘ ‘ ‘ ‘ inicio código
Dim Go As Boolean
Sub IniciaRelogio()
Go = True
MeuRelogio
End Sub
Sub MeuRelogio()
If Go Then
ActiveSheet.Calculate
Application.OnTime Now() + TimeValue(“00:00:01”), “MeuRelogio”
End If
End Sub
Sub ParaRelogio()
Go = False
End Sub
‘ ‘ ‘ ‘ ‘ ‘ ‘ ‘ ‘ ‘ fim código