Deveria ter colocado a rotina que está utilizando, mas a questão é :

Se o arquivo já existe, você tem de confirmar se quer substituir, se for este o caso, tem de colocar a instrução para enibir esta mensagem e permitir salvar :

adicione antes de "ActiveWorkbook.Save" a instrução :

Application.DisplayAlerts = False e no final habilite novamente, alterando False para True.

Depois de longas pesquisas encontrei a solução para o meu problema. O que estava acontecendo era que o Antivirus Microsoft Security Essentials estava bloqueando a pasta de trabalho devido os direitos autorais, então para resolver desinstalei o antivírus da microsoft e instalei o Avast e resolvido.
Obrigado Mauro Coutinho pela ajuda.