Who is Participating?

Function OpenFolder(FldrName As String)
Dim olApp As New Outlook.Application
Dim nsMAPI As Outlook.NameSpace
Set nsMAPI = olApp.GetNamespace("MAPI")
Dim d As Long
For d = 1 To nsMAPI.Folders.Count
Dim p
For p = 1 To nsMAPI.Folders.Item(d).Folders.Count
If nsMAPI.Folders.Item(d).Folders.Item(p).Name = FldrName Then
nsMAPI.Folders.Item(d).Folders.Item(p).Display 'This line can be removed
Exit Function
End If
Next p
Next d
End Function