Highlight the category you want to know the Name of, and then run the following code:Public Sub test() Dim pNetworkAnalystExtension As INetworkAnalystExtension Dim pNAWindow As INAWindow Set pNetworkAnalystExtension = Application.FindExtensionByName("Network Analyst") Set pNAWindow = pNetworkAnalystExtension.NAWindow MsgBox <a href="http://pNAWindow.ActiveCategory.NAClass.ClassDefinition.Name" target="_blank">pNAWindow.ActiveCategory.NAClass.ClassDefinition.Name</a>End SubIn our example, "CFRoutes" is returned for the NA Window item called "Routes".