Bom dia,

Como faria para colocar este código em um formulário para executar o relógio através do mesmo e não das células do excel?
e que fique contando os segundos, eu fiz isso mas ele apenas abre com a hora e data e não fica atualizando,
Obrigado pela atenção.

Dim agora As Date
Sub relogio()
Sheets("Plan1").Range("A1").Value = Format(Time, "hh:mm:ss")
If Range("A1").Value = Range("A2").Value Then MsgBox "os horários são iguais"
Call Atualiza
End Sub
Sub Atualiza()
agora = Now + TimeValue("00:00:01")
Application.OnTime agora, "relogio"
End Sub
Sub Parar()
Application.OnTime EarliestTime:=agora, Procedure:="relogio", Schedule:=False
End Sub