Excel Vba Array Remove Empty Folders