Cita:
Iniciado por SalomonSab 
No deberia ir asi:
Código:
vChildComp = swcomp.GetChildren 'se llena el vector
For j = 0 To UBound(vChildComp) ' se recorren todos los elementos del vector
Set swchildcomp = vChildComp(j)
MsgBox swchildcomp.Name2
Next j
si, se me a olvidao poner el next j. lo tengo así.