Thanks Beethoven,

Have swapped these two lines.

The code seems to stop at the line Set myDestFolder = myInbox.Folders("Inbox")

I am getting an error "The attempted operation failed. An object could not be found.

Could this be due to the Important folder not being a sub-folder of Inbox, but a subfolder of [Gmail]?

Thanks.