Public WithEvents sel As GxSelection Public Sub test() Dim pDockableWindowManager As IDockableWindowManager Set pDockableWindowManager = Application Dim sUID As UID Set sUID = New UID sUID.Value = "{7F09BEFF-4F85-48A2-A3DC-39430262799E}" 'GxBrowserDockWindow Dim pDockableWindow As IDockableWindow Set pDockableWindow = pDockableWindowManager.GetDockableWindow(sUID) Dim pGXBrowser As IGxBrowser Set pGXBrowser = pDockableWindow.UserData Dim pGXCatalog As IGxCatalog Set pGXCatalog = pGXBrowser.InternalCatalog Set sel = pGXCatalog.Selection End Sub Private Sub sel_OnSelectionChanged(ByVal Selection As esriCatalog.IGxSelection, initiator As Variant) MsgBox Selection.Location.FullName End Sub