Outlook VBA How to close a folder after displaying it with code - Microsoft Community

i have vba test code example below display outlook folder. code in excel workbook should not make difference trying achieve. when finished folder, vba code close folder? (the equivalent of clicking cross top right of displayed folder in interactive mode).

'with code in excel workbook, requires tools -> references -> microsoft outlook 16.0 object library checked

sub opendisplayclosefolders()
    dim olapp outlook.application
    dim olns outlook.namespace
    dim olflder outlook.folder
   
   'have outlook open keep example simple
    on error resume next
    set olapp = getobject(, "outlook.application")
    on error goto 0
   
    if not olapp nothing then
        set olns = olapp.getnamespace("mapi")
       
        'default folder, inbox displayed
       
       'assign folder variable path , name
        set olflder = olns.folders("gmail").folders("macquarie")
       
        olflder.display    'display additional folder
       
       'code here process displayed folder contents  (i have need folder  visible)
       
        '**************************************************************************
        'require vba code example here close folder when finished it
        '**************************************************************************
    end if
 end sub

do not display change current folder.

        dim startfolder outlook.folder

        'default folder, inbox displayed
        set startfolder = activeexplorer.currentfolder
        
        'assign folder variable path , name
        set olflder = olns.folders("gmail").folders("macquarie")
        
        'olflder.display    'display additional folder
        set activeexplorer.currentfolder = olflder
        
        'code here process displayed folder contents   (i have need folder  visible)
        
        '**************************************************************************
        'require vba code example here close folder when finished it
        set activeexplorer.currentfolder = startfolder
        '**************************************************************************

Office / Outlook / Microsoft Office Programming / Office 2016