Alterar Macro atravez de uma célula [Resolvido]

Boa tarde pessoal,
Quero fazer uma especie de despertador que abra uma msg de aviso após um determinado tempo.

O codigo para isso eu tenho:
Sub teste()
Application.Ontime Now + TimeValue("00:00:05"), "MinhaMacro"
End Sub

A mensagem virá em 5 seg. O que eu quero é poder alterar esse time de 00:00:05 sem precisar entrar no editor VBA, e sim atravez de uma celula, ou seja alterei a célula ex: A1 para o valor 02:00:00 e automaticamente a macro passe a trabalhar com esse valor e não mais 00:00:05. É possivel? Como?

Agradeço a ajuda.

Boa noite!!!

Vai ai algumas informações....de exemplos próximos.

http://www.tushar-mehta.com/excel/software/vba_timer/

http://snippetguy.blogs.sapo.pt/4888.html


Dim i As Long
Dim n As Date, l As Date

Sub func()

d = Time()
l = DateAdd("s", 5, Time)

Worksheets("Folha1").Cells(1, 1) = d
Worksheets("Folha1").Cells(1, 2) = l

i = 1
Do While d < l

Worksheets("Folha1").Cells(i, 3) = "ola"
i = i + 1
d = Time()

Loop

End Sub

Att....

Bom dia,
Alexandre obrigado pela tentativa mas o código acima está dando erro "subscrito fora do intervalo". Os links indicados não atendem ao proposito da questão. Aguardo mais dicas.

Solução:

Sub Time_Alarme()
' O tempo para alarmar OnTime está definido para ser igual ao tempo da célula B1
Application.OnTime Now + Range("B1"), "MinhaMacro"
End Sub

Obs: o tempo deve ser no formato HH:MM:SS.

Boa noite!!

Parabéns !!!!!...

Boa noite!!

Parabéns !!!!!...

Boa noite e Obrigado pela colaboração.