popTree(<Name of tree input criterion>)

This function will show tree select of input criterion.

Example:

1 Private Sub Worksheet_SelectionChange(ByVal Target As Range)
2 If Target.Address = "$C$3" Then
3
4 Dim oAdd As Object
5 Set oAdd = Application.COMAddIns("ESClient.Connect").Object
6
7 Dim sTreeName As String
8 If Range("C2") = "By region " Then
9 sTreeName = "Regin_Customer"
10 ElseIf Range("C2") = "By salesman" Then
11 sTreeName = "Salesman_Customer"
12 Else
13 sTreeName = ""
14 End If
15 If sTreeName <> "" Then oAdd.popTree sTreeName
16
17 Set oAdd = Nothing
18 End If
19 End Sub