Macro ExpandTreeItem/it