Sub RenameFile()
TotalRow = Cells(Rows.Count, "A").End(xlUp).Row
cartella = "F:Download" ' <<< percorso completo da modificare e terminare con 
For r = 1 To TotalRow
  numero = Cells(r, 1)
  nomefile = Dir(cartella & numero & "*")
  If nomefile <> "" Then
     MsgBox nomefile
  End If
  Name cartella & nomefile As cartella & Cells(r, 2) & ".jpg"
Next
MsgBox "Fatto"
    
End Sub

Sub RenameFile()

    totalrow = Cells(Rows.Count, "A").End(xlUp).Row
    cartella = "C:UsersUtenteDesktopalessandro	appo"    ' <<< percorso completo da modificare e terminare con 
    Set objFSO = CreateObject("Scripting.FileSystemObject")
    Set objFolder = objFSO.GetFolder(cartella)
    For Each objfile In objFolder.Files
        s = Replace(objfile, "", "")
        cont = ""
        For N = 1 To Len(s)
            If Mid(s, N, 1) <= "9" And Mid(s, N, 1) >= "0" Then
                cont = cont & Mid(s, N, 1)
                cont = CDbl(cont)
            End If
        Next
        MsgBox CDbl(cont)
        For r = 1 To totalrow
            numero = Cells(r, 1)
            If cont = numero Then
                MsgBox objfile
                FILENUOVO = Replace(objfile, cont, Cells(r, 2))
                Name objfile As FILENUOVO
                MsgBox "Fatto"
            End If
        Next
    Next

End Sub

Sub aa()
Dim Percorso As String, Nome1 As String, Nome2 As String, NomeFile As String, Ur As Long, Rg As Long
Percorso = ThisWorkbook.Path & ""
Ur = Range("A" & Rows.Count).End(xlUp).Row
Rg = 1
NomeFile = Dir(Percorso & "*.Jpg")
Do While NomeFile <> ""
    Cells(Rg, 5) = NomeFile
    Rg = Rg + 1
    NomeFile = Dir
Loop
MsgBox "fatto"
End Sub

Sub RenameFile()
TotalRow = Cells(Rows.Count, "A").End(xlUp).Row
cartella = "F:Download" ' <<< percorso completo da modificare e terminare con 
For r = 1 To TotalRow
  numero = Cells(r, 1).Text
  nomefile = Dir(cartella & numero & "*")
  If nomefile <> "" Then   Name cartella & nomefile As cartella & Cells(r, 2) & ".jpg"
' Application.Wait (Now + TimeValue("0:00:01")) 
Next
MsgBox "Fatto"
    
End Sub