Excel VBA to rename filesname or folder

[harky]

Hi Any idea why this not working? :D

Sub ChangeInFolder()
Dim OldName As String
Dim NewName As String
Dim LastRow As Long
Dim i As Long
LastRow = Range("A65536").End(xlUp).Row


For i = 1 To LastRow
    OldName = Range("A" & i).Value
    NewName = Range("C" & i).Value
    Name OldName As NewName
    
Next i


Application.ScreenUpdating = True
End Sub

 

[harky]

Oh! Thanks!

Great. The 2 means it starts on the second row (you may have headers!) rather than the first row. The message box would have picked that up!

 

[harky]

Is it possible to add status on Col D?

Like update and error?

Great. The 2 means it starts on the second row (you may have headers!) rather than the first row. The message box would have picked that up!