Boa tarde mapentea

Neste site tem relógio digital tipo Popup, para vc baixar de graça no teu excel

http://cpap.com.br/orlando/indice.asp#Clock

Um abraço.

Colega,

Tente esta macro:

Public CntTme As Double
Sub StartClock()
Sheets("Sheet1").Range("A1").Value = Now()
CntTme = Now + TimeSerial(0, 0, 1)
Application.OnTime CntTme, "'" & ThisWorkbook.Name & "'!StartClock", , True
End Sub

Formate a célula A1 da Plan1 para ver o relógio executando.

Fonte: http://www.excelforum.com/excel-program ... excel.html

Abraços

Colega,

Tente esta macro:

Public CntTme As Double
Sub StartClock()
Sheets("Sheet1").Range("A1").Value = Now()
CntTme = Now + TimeSerial(0, 0, 1)
Application.OnTime CntTme, "'" & ThisWorkbook.Name & "'!StartClock", , True
End Sub

Formate a célula A1 da Plan1 para ver o relógio executando.

Fonte: http://www.excelforum.com/excel-program ... excel.html

Abraços

Caro tomamais, tbm estava buscando a mesma solução e só encontrei uma eficaz com a sua resposta, foi apenas trocar o "Sheet1" por "Plan1" para funcionar perfeitamente. Estou desenvolvendo uma planilha de gestão de produtividade e isso vai ser a 'cereja no bolo'. Muito Obrigado!