I did a similar thing to you with my previous effort and set up a v basic test doc - only had 2 emails.

I have just tried using your attachment (ensuring I made all the changes) but had identical error (there is not enough free memory to run this program....) I am using an i5 7th gen machine with only not much open.
although the debug had it happening here - For i = CurrentFolder.Folders.Count To 1 Step -1

I didn't see this - As it runs, you should see in VBE Immediate window the number of outlook folders - 1 that it will search.

Thanks
Alan