Pessoal,

Boa tarde.

Podem me tirar uma dúvida por favor?

Tenho uma planilha com um código que está funcionando corretamente PORÉM surgiu uma situação:

No final do código ele salva o arquivo na rede com um nome estabelecido através de uma célula. Mas pode acontecer da rotina ser executada parcialmente e depois ser concluída. Ou seja... A célula que define o nome será igual e SE for feita a segunda parte no mesmo dia o DIA, que compõe o nome, também será igual.

Esta situação faz com que o excel pergunte se quero substituir o arquivo e o código acaba parando a sua continuidade.

Tem uma forma de no momento de salvar SE existir um arquivo com o mesmo nome ele salvar com um (2) no final?

O código está assim:

ChDir "\IP_DA_REDEPCMUSCLIENTEFaturamento"
ActiveWorkbook.SaveAs Filename:= _
"\IP_DA_REDEPCMUSCLIENTEFaturamento" & Year(Now) & " - " & Range("C8").Text & " - " & Format(Now, "ddmmyyyy") & ".xlsx", FileFormat:= _
xlOpenXMLWorkbook, CreateBackup:=False

Agradeço desde já pela habitual ajuda.

Atenciosamente,

Tiago Gonçalves