on error go to

[Avellaneda]

Iniciado por ebu

hola, he probado a ponerlo donde tu me dijistes y en la primera vez hace caso al goto y se va a inicio, pero la segunda vez va al bucle for y me da el error.
sabes si el on error goto solo funciona una unica vez?

gracias x tu ayuda!

Hola, prueba así

sub()
On Error GoTo inicio
For i = 0 To UBound(vChildComp)
Set swChildComp = vChildComp(i)
Next i
Exit Sub

inicio:
' si quieres que continúe el bucle:
Resume Next
' si quieres detener el proceso:
MsgBox Err.Number & " - " & Err.Description
Exit Sub
End Sub