[VBA] Rinominare file PDF in Excel

[leomac]

Salve,
ho un problema nel rinominare vari file .pdf.
In pratica:

Sub rinomina()
PERC = Cells(1, 8).Value
I = 1

Do
    If Cells(I, 1).Value = "" Then Exit Do
A= Cells(I, 5).Value
B= Cells(I, 6).Value
C= Cells(I, 3).Value
D= Cells(I, 7).Value
E= Cells(I, 4).Value

        Name (PERC & Cells(I, 1).Value & Cells(1, 9).Value) As PERC & A& " - " & B& " - " & C& " - " & D& "(" & E& ")" & ".pdf"
        I = I + 1
Loop
End Sub

Tutto va alla perfezione ma arrivati al file n 11 va in debug e dice che nn trova più il percorso.
dov'è che può essere l'errore? se fila per i primi numeri perchè si dovrebbe bloccare al file 11.
Ho provato ad eliminarlo e riparte ma si blocca al 19.

Tutti i file sono le singole pagine di un singolo file .pdf esploso con "PDF Split And Merge" può dipendere dal programma di suddivisione?
Grazie e 1 saluto siete mitici.

[leomac]

ultima novità:

Sub rinomina()
PERC = Cells(1, 8).Value
I = 1

Do
    If Cells(I, 1).Value = "" Then Exit Do
A= Cells(I, 5).Value
B= Cells(I, 6).Value
C= Cells(I, 3).Value
D= Cells(I, 7).Value
E= Cells(I, 4).Value

Cells(2, 8).Value = PERC & Cells(I, 1).Value & Cells(1, 9).Value 

        Name (PERC & Cells(I, 1).Value & Cells(1, 9).Value) As PERC & A& " - " & B& " - " & C& " - " & D& "(" & E& ")" & ".pdf"
        I = I + 1
Loop
End Sub

dove prima di richiamare e modificare il file, incolla il percorso trovato nella cella(2,8).
ora utilizzo la sub:

Sub apri()
Call ExecuteFile(Cells(2, 8).Value, vbNormalFocus)
End Sub

Public Sub ExecuteFile(FilePath As String, Stile As VBA.VbAppWinStyle)
    'Esegue file
    On Error GoTo error
    Dim ret As Integer
    ret = Shell("rundll32.exe url.dll,FileProtocolHandler " & (FilePath))
    Exit Sub
error:
    MsgBox Err.Description, vbExclamation, "Error"
End Sub

quindi mi apre il file da percorso che aevo incollato e lo trova aprendolo.
nn so che fare...