File rename (VBA Code -Excel Macros)

Sub DoRename()
Dim i As Integer
For i = 1 To 4
Name Range("A" & i).Value As Range("B" & i).Value
Next i
End Sub