On Error Goto repetido 2 veces en un codigo ¿Se puede?

Buenos dias

Tengo un formulario con un boton y dos cuadros de texto que empleo para abrir un libro excel. El primer cuadro de texto es para indicar el nombre del archivo y el segundo cuadro de texto es para indicar la hoja del archivo que quiero abrir.

Lo que busco es si el archivo no existe genera un error y con la instruccion de on error coloco un Msgbox diciendo que el archivo no existe y se detiene la instruccion. Ejemplo:

Private Sub CommandButton8_Click()


On Error GoTo error1


Dim nombrearchivo As String


nombrearchivo = "\\SERVER\Users\Administrador.SERVER\Documents\PEPE\PEPE\Dpto. Comercial\Presupuestos\Ofertas\Excel\Ofertas " & TextBox2.Value & ".xlsx"


Dim archivo As String


archivo = "Ofertas " & TextBox2.Value


Dim Hoja As String


Hoja = TextBox3.Value


If TextBox2.Value <> "" Then


ChDir _

        "\\SERVER\Users\Administrador.SERVER\Documents\PEPE\PEPE\Dpto. Comercial\Presupuestos\Ofertas\Excel"

    Workbooks.Open Filename:= _

        nombrearchivo



ElseIf TextBox2.Value = "" Then MsgBox "Por favor seleccione la referencia del presupuesto"


End If



error1:

MsgBox "referencia de presupuesto no encontrada"

Exit Sub



End sub

[/CODE]

Este codigo funciona pero ahora lo que quiero es q si al abrir el libro no encuentra la hoja que le indico en el otro textbox, al dar un error realice otra accion. Este es el ejemplo que estoy intentando usar pero no funciona:

En resumen en la primera parte se encuntra un error quiero ve valla a error1, si no lo encuentra el codigo continua hasta la segunda y si encuentra en la segunda algun error necesito que valla a error2.

Un Saludo

[color=blue]- - - - - Mensaje combinado - - - - -[/color]

Solucionadooooo.

Se puede detener la accion de on error, colocando la expresion On error Goto 0

Viva la ayuda de Excel.

Perdonar las molestias