Boa noite!!

Poste seu arquivo modelo compactado!!!

att

OI Alexandre,

Achei prudente uper em um servidor externo. Segue o link.

http://www.sendspace.com/file/qp1q76

Experimente assim:

Private Sub Workbook_Open()
lis = (Time + TimeSerial(0, 0, 1))
Range("J12") = Environ("UserName")
ActiveWorkbook.Worksheets(1).Range("A1").Value = Format(Now, "hh:mm:ss")
Relogio
End Sub

Nota: Como a rotina "relogio" é executada na abertura do arquivo, ao editar o VBE, e digitar algo, e gerado um erro (não é possivel executar a rotna em interrupçao);
então de ok tecle 2 vezez o F8 ou clique no btn quadrado (redefinir) na barra de tarefas, faça as alterações e "rode" a rotina workbook open novamente

Oi Reinaldo,

Funcionou... Porém, agora começou aparecer um erro ao clicar no botão visualizar marcações (ERRO 400). Sabe oq pode ser?

Abraço,
Rogério.

Aqui no seu exemplo, não recebi nenhuma mensagem de erro, funciona normal.
Erro 400 normalmente refere-se a Tentativa de selecionar um objeto escondido,porem no site msdn diz diferente ( http://support.microsoft.com/kb/262441/pt-br ).

Talvez ao efetuar essa ultima alterçãoalguma outra linha de codigo tenha sido alterada inadivertidamente. Tente revisar, se persistir, mande o arquivo com o erro