Add cell value to folder name

[leemcder]

Thank you for taking the time to reply. I have tried this and the folder name has not changed, apologies if I'm missing something, should I be changing anything else?

change this to:

..
MyFile = Dir$(MyFolder & "*.*")