Boa tarde,

estou a tentar criar um código que grava um workbook com um determinado nome:

Windows("Preparação_BD_Macro.xls").Activate
Sheets("Macro").Select
Cd = Range("c25").Value 'caminho destino
fdO = Range("c27").Value 'nome do ficheiro destino

Windows(fdO).Activate
ChDir Cd
ActiveWorkbook.SaveAs Filename:=Cd & "O" & Mid(Cells(300003, 11).Value, 38, 14) & ".xlsx", _
FileFormat:=xlOpenXMLWorkbook, CreateBackup:=False

Mas eu queria criar um código que verificasse se essse nome já existe.. se já existir adiciona um "1", "2", "3"... etc à frente do nome do ficheiro

Conseguem ajudar?