Sub NavigationPaneModuleName()
Dim objPane As NavigationPane
Dim objModule As Object
' Get the current NavigationPane object.
Set objPane = ActiveExplorer.NavigationPane
Debug.Print objPane.CurrentModule.Name
EndRoutine:
Set objModule = Nothing
Set objPane = Nothing
End Sub