Need Help: Bulk Excel Macro to rename folders and files based of full path

[harky]

I try to search here but all seen to be for solo folder

B2 cell	C2 cell	D2 cell
Full Path File Name (Currrent)	Full Path File Name (Rename)	Status
C:\Users\AAA\Desktop\Office PC	C:\Users\AAA\Desktop\Home PC

 

[ranman256]

Sub RenameFolders()
Dim vSrc, vTarg

On Error GoTo errFix

Range("B2").Select
While ActiveCell.Value <> ""
   vSrc = ActiveCell.Value
   vTarg = ActiveCell.Offset(0, 1).Value
   
   Name vSrc As vTarg
   ActiveCell.Offset(0, 2).Value = "success"

goNext:
   ActiveCell.Offset(1, 0).Select     'next row
Wend
MsgBox "Done"
Exit Sub

errFix:
ActiveCell.Offset(0, 2).Value = "fail"
Resume goNext
End Sub