Dim agora As Date
Sub relogio()
Sheets("Plan1").Range("A1").Value = Format(Time, "hh:mm:ss")
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

Graças a vcs consegui o que eu queria que era fazer um relogio na planilha do excel,vlw mesmo,se pudesse pagar eu pagava!Melhor forum de excel que eu já vi...
Bom a minha duvida é a seguinte
Por exemplo roda um relogio lá na celula A1 certo?Mas o que eu quero que por exemplo,na celula A2 eu digitei 09:30:00,até ai  tudo certo
O que eu quero é que quando o relogio que está na celula A1 ficar o tempo igual que está na celular A2 ele irá exibir uma mensagem,ou seja um MsxBox,eu tentei coisas como
if A1=A2 then
If Range("A1').value="A2 then

Mas não consegui nenhum resultado...,ah pessoal a celula A2 não é um relogio é apenas um horario que eu mesmo digito lá
Desde já agradeço!