Move all highlighted emails, not just active one

[gmayor]

You need to loop through the selection items e.g.

For Each myItem In Application.ActiveExplorer.Selection        
    myItem.Move objNS.GetDefaultFolder(olFolderInbox).folders(strSubFolder1)
Next myItem