How to rename file names from an excel cell

PatMyer 

Oh wait - my bad. The values in the worksheet already include .png.

Try this version:

Sub RenameFiles()
    ' Change the path as needed, but keep the trailing backslash
    Const sFolder = "C:\MyFiles\"
    Dim r As Long
    Dim m As Long
    Dim v As Variant
    m = Range("A" & Rows.Count).End(xlUp).Row
    v = Range("A1:B" & m).Value
    On Error GoTo ErrHandler
    For r = 2 To m
        Name sFolder & v(r, 1) As sFolder & v(r, 2)
    Next r
    Exit Sub
ErrHandler:
    MsgBox "Failed to rename " & v(r, 1), vbInformation
    Resume Next
End Sub