Hallo,
soweit ich weiß, kann man mit der Fehlerauswertung "On Error Goto ..." in keine Prozedur (Sub/Function) springen... also nur in eine Zeile innerhalb der Prozedur mit "On Error Goto". Das Einzige, was man machen könnte, ist eine Fehlerbehandlungs-Prozedur zu schreiben, die aus jeder Prozedur, in der ein Fehler ausgelöst werden kann, aufgerufen wird. Klingt kompliziert, deswegen mach ich ein Beispiel =)

Private Sub Prozedur_1
On Error Goto ErrHandler

'Hier wird ein Fehler ausgelöst...
DoEvents 1

'Prozedur vor Fehlerbehandlung abbrechen
Exit Sub
ErrHandler:
Fehlerbehandlung()
End Sub

Private Sub Command1_Click()
On Error Goto ErrHandler

'Hier wird ein Fehler ausgelöst...
DoEvents 1

'Prozedur vor Fehlerbehandlung abbrechen
Exit Sub
ErrHandler:
Fehlerbehandlung()
End Sub

Public Sub Fehlerbehandlung
'Hier können dann alle Fehler ausgewertet werden...
End Sub


Das Grundgerüst mit "On Error...", "Exit Sub", "ErrHandler:" und "Fehlerbehandlung" musst Du dann in jede Prozedur einbauen, in der Du eine Fehlerbehandlung haben willst...Achtung, wenn Du aus verschiedenen Forms die Prozedur "Fehlerbehandlung()" aufrufen willst, musst Du sie in ein Modul setzen.
Ich hoffe, dass ich Dir weiterhelfen konnts Bild  

Mfg
David