macro to collapse "move to" tree

Question

I understand that I can collapse all of my folders in the list of folders that reside on my main Outlook screen.  See screenshot below. 

However, what I'd like to do is have the "Move Items" folder tree collapse automatically.  For example, when I move an email to a different folder, using (right click on email>Move>Other Folder), whatever subfolders were opened last time are still open.  I have all of my emails sorted into subfolders A-Z, then in subfolders based on the first letter of customer name.

As you can imagine it doesn't take long before the list is way too long, and I have to mouse scroll back to the top and close the master folder, so that when i open it I see just the A-Z subfolders.

Is there a way to do this, with a macro? Essentially collapse all folders automatically when you move an item?