Outlook VBA Folder.Items Resulting in Runtime error 13: Type mismatch

Question

I have wrote this VBA code a couple of months ago for one of the ladies in the HR team to help her manage some of her emails. It has been working perfectly fine for the last cou