Falha ao tentar fechar arquivo do Excel através do VBA

[jeffbart]

essoal

Criei uma macro com um rotina para fazer algumas edições simples (retirar formulas e códigos VBA) de algumas planilha, que utilizo como referencia para outras funções.

a edições ocorre corretamente, porém quando entra o comando para fechar a planilha após a edição, vem uma mensagem de erro e reinicia o Excel.

Os comandos são mais ou menos esses que seguem:

Sub editar1(arq As String)
Workbooks.Open Filename:=arq
nome = Dir(arq)
novonome = pasta & "\Copy of " & nome
nome2 = Dir(novonome)
Call DeleteVBACode
Call Remover_Form
ActiveWorkbook.SaveAs novonome
Windows(nome2).Activate
ActiveWorkbook.close
End Sub

Postei a planilha no mediafire:

http://www.mediafire.com/?sharekey=a9fa5f7...f75605ba775ce83

Se alguém me der uma orientação, serei imensamente grato (posso até pagar umas brejas, hehehehe)

[Paulo H Grando]

Sem ver as outras procedures q são chamadas acredito q o problema é na última linha. Ao invés de mandar fechar a planilha ativa, mande fechar pelo nome (Workbook(Nome).Close).