Hi,
I made this code with the assistance of Ai, to move selected files and folders in the current folder to a new custom folder by input box
Dim objFSO, objShell, destinationFolder, currentFolder, newFolderName
Set objFSO = CreateObject("Scripting.FileSystemObject")
Set objShell =...