Looking for a VBA to search a single cell value for a partial sub folder name, move sub folder and folders and contents within to destination folder

[pulsenation]

I am looking for a VBA that will search a single cell value for a partial sub folder name, then move that sub folder and folders and contents within to a archive destination folder.



The folder names within the source folder are set out like this:- DPR 12345 Surname

The five figure reference is unique and that is the partial value of the folder I would like to search.



To clarify:- Once the five figure number is input into a single cell, a button is pressed which will run the macro, find the folder, and move the folder DPR 12345 Surname, it's sub folders and contents to an archive destination folder.



I am new to VBA and the dummy guide approach would be most welcome.