delete messages

Greetings, I'm having a little trouble with some code. I'm trying to delete emails from certain addresses from a shared mailbox. I'm getting a Block Variable not set error. I'm marrying two sets of code to make this work (not work). Any help you could provide would be greatly appreciated...

Hello, I need a little Outlook VBA help please...I manually select a subfolder from a main folder that I created (not inbox, sent, delete, etc.) in my left-hand folder pane in Outlook and run this code to delete email messages contained in the folder. However, I have about 50 folders that I need...