You do not need to change this line CurrentFileName = Dir(myPath & "\*.xlsx").

The only line you need to change is myPath = "B:\Test"