error 13

[David]

Antes del bucle For prueba poner algo como esto:

Código vb:

If vChildComp = Empty Then Exit Sub
 

O sea, en caso de que vChildComp esté vacío salir del procedimiento.