Thanks Diane,
I changed olContactItem to olMailItem and it worked on the selected folder and one level of sub-folder.
Can this work on a situation with a mail folder and 4 levels of sub-folders? For example:
Inbox
Family
Girls
Iraq
Joe
Also, can a keyboard shortcut be assigned to run the macro?
thanks,
Phillip