Set obj = CreateObject("Shell.Application") Set objFolder = obj.NameSpace( &h1e ) obj.Explore(objFolder.Self.Path) Set obj = Nothing