macro não funciona e aparentemente não existe erro.

[celso judson]

ola galera, sou professor de informática aqui na minha cidade e a escola onde dou aula usa um sistema interativo para dar aula, junto com este sistema vem a apostila e tem um exercício de Excel avançado que não esta funcionando, eu li e reli umas 50 vezes este exercício e não encontrei nenhum erro aparente talvez por não ter tanta esperiencia com macros ou por falta de atenção mesmo, mas não acho esse erro de jeito nenhum! será que algum de vocês poderiam me ajudar por favor!?

o codigo é este:

Workbooks.Add

ActiveWorkbook.Worksheets.Add

ActiveSheet.Name = "Valores"

ActiveWorkbook.SaveAs "C:\Teste\Macro.xls"

Workbooks.Add

ActiveWorkbook.Worksheets.Add

ActiveSheet.Name = "Resultados"

Workbooks("Macro.xls").Sheets("Valores").Range("A1").Value = 10

Workbooks("Macro.xls").Sheets("Valores").Range("A2").Value = 20

Workbooks("Macro.xls").Sheets("Valores").Range("A3").Value = 30

Workbooks("Macro_Resultados.xlsx").Sheets("Resultados").Range("A1").Value = "Total da coluna A"

Workbooks("macro_resultados.xlsx").Sheets("Resultados").Range("A2").Value = "=sum([macro.xls]valores!$a1:$a$3)"

[Márcio Rodrigues]

Olá celso judson

Onde está o arquivo: Macro_Resultados.xlsx, pelo que entendi do seu código você deveria salvar o ActiveWorkbook.Worksheets.Add com Macro_Resultados.xlsx e dar nome a planilha ativa ActiveSheet.Name = "Resultados" para depois acionar o arquivo.

Márcio