ALTERANDO NOME IDENTICO NO SALVAMENTO

ActiveWorkbook.ExportAsFixedFormat Type:=xlTypePDF, Filename:= _
    nome + [Ô].pdf[Ô], Quality:=xlQualityStandard, _
    IncludeDocProperties:=True, IgnorePrintAreas:=False, OpenAfterPublish:= _
    False

Sub Teste()
    Dim s As String
    
    s = [Ô]c:    emp    este.xlsx[Ô]
    If CaminhoExiste(s) Then
        MsgBox [Ô]O caminho ou arquivo [ô][Ô] & s & [Ô][ô] existe e é válido.[Ô] _
          , vbInformation _
          , [Ô]Informação[Ô]
    Else
        MsgBox [Ô]O caminho ou arquivo [ô][Ô] & s & [Ô][ô] não existe ou é inválido.[Ô] _
          , vbCritical _
          , [Ô]Erro[Ô]
    End If
End Sub

Function CaminhoExiste(sCaminho As String) As Boolean
    [ô]Testa se um caminho ou arquivo existe (ou é válido)
    
    [ô]Caso deseja testar se um caminho existe, certifique-se que o
    [ô]parâmetro de entrada sCaminho TERMINE com uma \, como, por
    [ô]exemplo, Debug.Print CaminhoExiste([Ô]c:    emp\felipe\[Ô]). Caso
    [ô]contrário, a função buscará um arquivo chamado felipe, sem
    [ô]extensão, na pasta c:    emp.
    
    If Dir(sCaminho) = vbNullString Then
        CaminhoExiste = False
    Else
        CaminhoExiste = True
    End If
    
    [ô]A forma abreviada da função pode ser escrita como:
    [ô]CaminhoExiste = Dir(sCaminho) <> vbNullString
End Function

Function Renomeia(strNome As String) As String
        [ô]TEM variáveis d+ acho que dá para melhorar!
        Dim strCaracter As String
        Dim strCaracterAnterior As String
        Dim strNovoNome As String
        Dim intTamanho As Integer
        Dim i As Integer
        
        [ô]Lê cada caractere do arquivo
        For i = 0 To Len(strNome) - 1
            [ô]Caso o arquivo seja composto SOMENTE de números o bicho pega aqui!
            strNovostrNome = strNome + 1
            [ô]Pega os caracteres de trás para frente
            strCaracter = Mid(strNome, Len(strNome) - i, i + 1)
            
            [ô]Verifica que se é número o que se pegou
            If InStr([Ô]0123456789[Ô], strCaracter) = 0 Then
                [ô]Reposiciona caracter válido
                strCaracter = strCaracterAnterior
                
                [ô]Verifica o tamanho restante do arquivo
                intTamanho = Len(strNome) - Len(strCaracter)
                
                [ô]Incrementa somente depois de verificar o tamanho! Caso passe de 99 para 100 (por exemplo)
                strCaracter = strCaracter + 1
                
                If intTamanho > 0 Then
                    [ô]Coloca a parte texto + o número incrementado
                    strNovostrNome = Left(strNome, intTamanho) & strCaracter
                End If
                
                [ô]Sai da rotina
                Exit For
            End If
            
            [ô]Guarda a posição anterior (que era sempre válida)
            strCaracterAnterior = strCaracter
            
        Next
        
        [ô]Devolve o nome alterado correto
        Renomeia = strNovostrNome
End Function

    [ô]nome = [Ô]TESTE[Ô]
    [ô]nome = [Ô]TESTE12[Ô]
    nome = [Ô]12345[Ô]

    [ô]If CaminhoExiste(SelecionarPasta + [Ô]\[Ô] + nome + [Ô].pdf[Ô]) Then
    If CaminhoExiste(SelecionarPasta + [Ô]\[Ô] + nome + [Ô].txt[Ô]) Then
        [ô]MsgBox [Ô]O caminho ou arquivo [ô][Ô] & s & [Ô][ô] existe e é válido.[Ô] _
          , vbInformation _
          , [Ô]Informação[Ô]
    
    nome = Renomeia(nome)

    MsgBox [Ô]O strNome do arquivo é [ô][Ô] & nome & [Ô][ô] existe e é válido.[Ô] _
      , vbInformation _
      , [Ô]Informação[Ô]