I am trying to move a folder from "quotes" to "sales" and
cannot get it right. What is wrong?
Sub Move()
Dim sFolder As Scripting.folder
Dim sDestination As String
Set sFolder = "\\quotes\" & ActiveSheet.Range("S7")
& "\" & ActiveSheet.Range("h14")
sDestination = "\\Sales\" & ActiveSheet.Range("S7")
& "\" & ActiveSheet.Range("h14")
MoveFolder sFolder, sDestination
End Sub