You see the folder at this line
Set Application.ActiveExplorer.CurrentFolder = F
The updated Folder_AnyMailbox:
Option Explicit
Sub Folder_AnyMailbox()
Dim strMailboxName As String
Dim myfolder As Folder
strMailboxName = "Name of mailbox"
Set myfolder = Session.Folders(strMailboxName)
Set myfolder = myfolder.Folders("Inbox")
Set myfolder = myfolder.Folders("Subfolder 1")
Set myfolder = myfolder.Folders("Subfolder 2")
'myfolder.Display
Set ActiveExplorer.CurrentFolder = myfolder
If myfolder.Folders.Count > 0 Then
' Open the first subfolder of Subfolder 2
Set ActiveExplorer.CurrentFolder = myfolder.Folders(1)
' Open Subfolder 2
Set ActiveExplorer.CurrentFolder = myfolder
End If
ExitRoutine:
Set myfolder = Nothing
End Sub