Boa tarde!!

Teste isso, não sei se vai dar certo.

Sub CopiarAle()
    Const sPath As String = "C:Documents and SettingsseuDiretorioAqui"

    Workbooks.Add.SaveAs sPath & ThisWorkbook.Sheets("RDF ATE I").Range("A3")
End Sub

Veja se lhe ajuda
Uma opção, cria copia do arquivo, com nome conforme valor na celua BF1, salva no diretorio do arquivo "mãe" ou em outro informado em BF2

Amigo Reinaldo, quero agradecer pela sua atenção.

Está ficando perfeita mas sem querer abusar gostaria de entender passo a passo, se for possivel?

outra coisa é que ocorre erro na linha "With ActiveWorkbook.VBProject.VBComponents("Módulo1").CodeModule"

não entendi, me desculpe.

obrigado

jr, me antecipando ao colega Reinaldo :

O nome do novo arquivo está na Cleula "Bl11", onde temos a formula:
="Histórico de defeito - " & ARRUMAR(ESQUERDA(A3;LOCALIZAR(" -";A3;1))) & "_"& ANO(AGORA())&".xls"

Na linha abaixo armazenamos o Nome que resultou da formula acima :
nPlan = Sheets("RDF ATE I").Range("Bl1").Value

Aqui verificamos se foi digitado um caminho diferente para Salvar o Arquivo, se não foi definido, salva no mesmo diretorio onde se encontra o arquivo Original:
If Sheets("RDF ATE I").Range("bl2") = "" Then
Caminho = ThisWorkbook.Path & Application.PathSeparator
Else
Caminho = Sheets("plan1").Range("bl2").Value
End If

Armazenamos o caminho e nome do arquivo:
Arquivo = Caminho & nPlan

O restante ja está comentado no código.

Quanto ao erro, se copiou a rotina e colou em outro arquivo, precisa verificar se o Modulo em que foi colado tem o nome "Módulo1", se for outro nome ajuste na instrução :
With ActiveWorkbook.VBProject.VBComponents("Módulo1").CodeModule

With ActiveWorkbook.VBProject.VBComponents("NomeDoModulo").CodeModule

Espero ter esclarecido a duvida.

[]s

Que rapidez Amigo, vou checar. abs

Amigo, testei a planilha aqui, continua com erro não consigo resolver... voce testou ai e deu certo?

Jr, se estiver utilizando a v 2003, vá no Menu Ferramentas Macro | Segurança e Habilite as Opções :
Confiar em todos os suplementos e modelos instalados ... e
Confar no acesso ao projeto do Visual Basic

Se estiver utilizando v 2007 procure onde está esta opção e habilte-as.

[]s

Amigos do fórum, funcionou perfeito, tenho algumas coisas a acrescentar e com certeza vou necessitar de mais ajuda deste fórum.
Muitos obrigado.

Bom dia!!

Caso as postagem acima tenha esclarecido sua dúvida, favor marcar o tópico como resolvido!!

Veja como em:
viewtopic.php?f=7&t=3784