Add cell value to folder name

[arnelgp]

change this to:

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