Renaming folders using VBA - vba

Question

I am trying to rename folders based upon a template that a user will fill out. The user will specify the old name of the folder and what it will be updated to. There are bunch of sub folders that also get the name change.
I have confirmed that the folders exist and in the locations that they should be so I don't understand why this is failing. I have also tried using FileSystem objects and get the same problem.
Any help would be greatly appreciated.
Sub UpdateMain()
'string capture variables
Dim currentLocation As String
Dim currentName As String
Dim customerNumber As String
Dim newName As String
'path creation variables
Dim rootPath As String
Dim currentPath As String
Dim newPath As String
'counter variables
Dim i As Integer
With wsUpdate
currentLocation = .Range("B1")
currentName = .Range("B2")
customerNumber = .Range("B3")
newName = .Range("B5")
End With
'create path and folder for the root folder
rootPath = currentLocation & "\" & currentName & " (" & customerNumber & ")"
'edit all subfolders prior to root folder
i = 0
With wsUpdate.Range("A8")
Do Until .Offset(i, 0) = ""
If .Offset(i, 1) = "Customer" Then
currentPath = rootPath & "\" & currentName & " " & .Offset(i, 0)
newPath = rootPath & "\" & newName & " " & .Offset(i, 0)
Else
currentPath = rootPath & "\" & currentName & " " & .Offset(i, 1) & "\" & currentName & " " & .Offset(i, 0)
newPath = rootPath & "\" & newName & " " & .Offset(i, 1) & "\" & newName & " " & .Offset(i, 0)
End If
Call FolderNameEdit(currentPath, newPath)
i = i + 1
Loop
End With
'edit root folder
currentPath = currentLocation & "\" & currentName & " (" & customerNumber & ")"
newPath = currentLocation & "\" & newName & " (" & customerNumber & ")"
Call FolderNameEdit(currentPath, newPath)
End Sub
Sub FolderNameEdit(currentPath As String, newPath As String)
Name currentPath As newPath
End Sub
I keep getting
Run-time error '53': File not found.
The error occurs on line:
Name currentPath as newPath

Answer 1

Check folders before renaming:
Sub FolderNameEdit(currentPath As String, newPath As String)
If Dir(currentPath, vbDirectory) = vbNullString Then
' error
ElseIf Dir(newPath, vbDirectory) <> vbNullString Then
' error
Else
Name currentPath As newPath
End If
End Sub