Sub rename1()
OldName = "C:\Users\zgjxg\Desktop\448.jpg": NewName = "C:\Users\zgjxg\Desktop\" & Worksheets(1).Range("B6").Value & "48.jpg"
Name OldName As NewName
OldName = "C:\Users\zgjxg\Desktop\448.jpg": NewName = "C:\Users\zgjxg\Desktop\" & Worksheets(1).Range("B6").Value & "48.jpg"
Name OldName As NewName
End Sub