Beatrix, I forgot to tell that you'll need to activate Microsoft Scripting Runtime to run this code:

ScreenHunter_01 Jan. 17 10.29.jpg

Douglas Marcel