I have the following macro to mark all messages as read. I want to call it
with a list so that it will run for several folders. What syntax would I
use? Thanks.

Sub ChangeToRead()

Dim objInbox As Outlook.MAPIFolder
Dim objOutlook As Object, objnSpace As Object, objMessage As Object
Dim objSubfolder As Outlook.MAPIFolder

Set objOutlook = CreateObject("Outlook.Application")
Set objnSpace = objOutlook.GetNamespace("MAPI")
Set objInbox = objnSpace.GetDefaultFolder(olFolderInbox)
'Set objSubfolder = objInbox.Folders.Item("Test")
Set objSubfolder = Application.ActiveExplorer.CurrentFolder

For Each objMessage In objSubfolder.Items
objMessage.UnRead = False
Next

Set objOutlook = Nothing
Set objnSpace = Nothing
Set objInbox = Nothing
Set objSubfolder = Nothing


End Sub