VBA Imbriquée on Error GoTo

J'ai un code VBA qui est censé être imbriquées à la vérification des erreurs, mais il ne le fait pas. Le code est pseudo comme ci-dessous. Cependant, chaque fois qu'une erreur se produit au sein d'une erreur (Par exemple, une erreur s'est déclenché dans la boucle, goto SmallError se produit, et une erreur se produit dans SmallError) La deuxième GoTo n'est pas utilisé. L'erreur puis rompt le code.

Ex:

Erreur dans la Boucle

GoTo SmallError

Erreur dans SmallError

Code des Pauses (Ici code doit GoTo FatalError)

Sub DoThings()
    On Error GoTo SmallError
    'Coding Happens
    Do While(conditionhere)
       'Looping things happen
    GoTo LoopResume
SmallError:
    source = Err.source
    descript = Err.Description
    On Error GoTo Fatal Error
    'Small error processing happens
    Resume LoopResume
FatalError:
    source = Err.source
    descript = Err. Description
    On Error GoTo ExitError
    'Fatal Error processing happens
ExitError:
    Exit Sub
LoopResume:
count = count + 1 
Loop

On Error GoTo FatalError
'Finishing code happens
End Sub

OriginalL'auteur steventnorris | 2013-04-04