Depending exactly what you are doing, you can probably simplify the code
somewhat with a loop;
Dim i as long

with Worksheets("Cert_Path_module")
For i=1 to 10
With .Range("Module_" & i)
if .Value<"" Then
Set nodX = .Add("Path", tvwChild, "Mod" & i,....
....etc

NickHK

wrote in message
oups.com...
Hi Experts,
I'm using the tree view functionality, where the node values are taken
from a cell. Using the following code,

With TreeView1.Nodes
.Clear


Set nodX = .Add(, , "CName",
Worksheets("Cert_Details").Range("C_Name").Value)



Set nodX = .Add("CName", tvwChild, "Path",
Worksheets("Cert_Path_module").Range("Path").Value )



Set nodX = .Add("Path", tvwChild, "Mod1",
Worksheets("Cert_Path_module").Range("Module_1").V alue)
Set nodX = .Add("Path", tvwChild, "Mod2",
Worksheets("Cert_Path_module").Range("Module_2").V alue)
Set nodX = .Add("Path", tvwChild, "Mod3",
Worksheets("Cert_Path_module").Range("Module_3").V alue)
Set nodX = .Add("Path", tvwChild, "Mod4",
Worksheets("Cert_Path_module").Range("Module_4").V alue)
Set nodX = .Add("Path", tvwChild, "Mod5",
Worksheets("Cert_Path_module").Range("Module_5").V alue)

Here is my question.
If i have few cells that do not have any values for
ex.Worksheets("Cert_Path_module").Range("Module_1" ).Value)... then i
want that tree node with this cell value to be deleted, rather than
having a blank tree node. Any Suggestions???

Thanks for your help.