"Out Of Memory Error" when not out of memory

For whatever reason I keep getting an "Out of Memory Error" whenever I attempt to execute it. if I remove the GetItemsNames for the inventory it dosent throw the error but even if I debug.print anything it will throw the error. The laptop I'm using isn't new by any means but it has 6GB of Ram and is a 64bit OS. Not only that but the memory dosent even spike when I run the code. Its using 20mb at max. Is it a problem with my VBA Structure? I'm fairly new to VBA but it doesn't seem like I should be running out of memory with such little actually happening. Not only that but the files the code is opening are only 4 or 5 rows. This must be an issue with excel itself or the execution of the code. I have two macro buttons. One to execute the SelectFolder function and one for the GrabMobeItems.

Please Login or Register  to view this content.

Originally Posted by PCI

What do you want to do with statement ?

Please Login or Register  to view this content.

The basic idea was to go through each file in a selected file folder and then read every populated row in A, take the value of each cell and add it to a list so i can later xonoare it with the current list that this VBA is executing from. That way I could later run a for to change data based on the name of the cell that matches between the ThisWorkbook and the ones im opening

Originally Posted by PCI

But here, you are using twice the same variable ...FSOFile as object in FSOFile ... no ??
You should use FSOFolder .. no ?

I changed it to FSOFolder.Files, however i still get a out of memory error

I do but unfortunately I haven't, "posted enough. I cant post dropbox links or upload files

All it is is a workbook in which this vba code executes. The select folder selects a folder in which workbook files are. then it loops through all files in that folder and reads all occupied rows in A.