Erro execução 3434 ao exportar para excel

Gente,
boa tarde

Estou com um sistema que fiz já há um bom tempo (acho que uns 2 anos) e até o momento não havia apresentado esse problema (nem em faze de desenvolvimento)...

Não consegui identificar facilmente o que causa e uma possível solução.

O erro que ocorre é o "3434 - Não é possível expandir um intervalo nomeado".

Usando: Windows 7 e Access 2007

Alguém possui uma luz ?

Abraços

Claudio

PS: Tinha aberto em macros erroneamente, por isso apaguei e criei aqui por acredicar ser correto.

Claudio,

Disponibilize o seu projeto ou a parte que interessa ou nos dê mais detalhes a respeito. código utilizado, etc... ajudará no entendimento.



Abraços,

Uilson
bom dia

A parte do código que está dando erro é essa:

Código:

DoCmd.TransferSpreadsheet acExport, acSpreadsheetTypeExcel7, "Dados_Agencias", Caminho & "\Cadastro-Agencias-BKUP.xls", True

Caso necessário, segue abaixo o código inteiro:

Código:

'procedimento para salvar as principais tabelas em arquivos do excel
'On Error GoTo DeuErro
Dim Caminho As String
Caminho = Application.CurrentProject.Path
MsgBox "Este procedimento irá efetuar o backup dos principais dados cadastrais.", vbInformation, "SARV Informa:"

If MsgBox("Deseja continuar?", vbQuestion + vbYesNo + vbDefaultButton2, "SARV Questiona:") = vbNo Then Exit Sub 'questiona se deseja continuar
'efetua backup da tabela Dados_Agencias
    DoCmd.TransferSpreadsheet acExport, acSpreadsheetTypeExcel7, "Dados_Agencias", Caminho & "\Cadastro-Agencias-BKUP.xls", True
    MsgBox "Cadastro das agências salvo." & Chr(13) & "Arquivo: Cadastro-Agencias-BKUP.xls", vbInformation, "SARV Informa:" 'mensagem confirmando a gravação
'efetua backup da tabela Liderança
    DoCmd.TransferSpreadsheet acExport, acSpreadsheetTypeExcel7, "Dados_EmailLider", Caminho & "\Cadastro-Lideranca-BKUP.xls", True
    MsgBox "Cadastro da liderança salvo." & Chr(13) & "Arquivo: Cadastro-Lideranca-BKUP.xls", vbInformation, "SARV Informa:"  'mensagem confirmando a gravação
'efetua backup da tabela Corretores
'    DoCmd.TransferSpreadsheet acExport, acSpreadsheetTypeExcel7, "Dados_Corretores", "G:\Renovação\Cadastro-Corretores-BKUP.xls", True
'    MsgBox "Cadastro dos corretores salvo." & Chr(13) & "Arquivo: Cadastro-Corretores-BKUP.xls", vbInformation, "SARV Informa:"  'mensagem confirmando a gravação
    
MsgBox "Procedimento de Backup realizado com sucesso.", vbExclamation, "SARV Informa:"


Obrigado,

Claudio Giroto