Rename folders using values from sheet

You can try with this code:

Sub Macro1()
   Dim objFSO, fso
   Set objFSO = CreateObject("Scripting.FileSystemObject")
   Set fso = objFSO.GetFolder("c:\myFolder")  'path to rename
   fso.Move ("c:\" & Range("a1"))             'rename path with name from Range  a1

End Sub

Regards,
Antonio