Estoy usando las herramientas de la hoja de trabajo, crear una hoja de índice con botones (VBA). Cuando selecciono uno de los botones, el código se ejecuta como debería, excepto que sigue mostrando el mensaje "No se puede activar ODBC. Es posible que se haya eliminado o cambiado de nombre". error. Hace lo mismo para todas las hojas. ¿¿Cuál es el problema?? El código es el siguiente:

Sub Ir al botón 1_Click ()
On Error Resume Next
Hojas("ODBC").Activar
If Err <> 0 Then MsgBox "No se puede activar ODBC. Es posible que haya sido eliminado o renombrado".
En caso de error, vaya a 0
End Sub

Sub Ir al botón 2_Click ()
On Error Resume Next
Hojas de cálculo ("Maestro"). Activar
If Err <> 0 Then MsgBox "No se puede activar Master. Es posible que haya sido eliminado o renombrado".
En caso de error, vaya a 0
End Sub

Sub Ir al botón 3_Click ()
On Error Resume Next
Hojas("TODAS").Activar
If Err <> 0 Then MsgBox "No se puede activar TODO. Es posible que haya sido eliminado o renombrado".
En caso de error, vaya a 0
End Sub

Sub Ir al botón 4_Click ()
On Error Resume Next
Hojas("PAGADO").Activar
If Err <> 0 Then MsgBox "No se puede activar PAGADO. Es posible que haya sido eliminado o renombrado".
En caso de error, vaya a 0
End Sub

Sub Ir al botón 5_Click ()
On Error Resume Next
Hojas("SETTLED").Activar
If Err <> 0 Then MsgBox "No se puede activar SETTLED. Es posible que haya sido eliminado o renombrado".
En caso de error, vaya a 0
End Sub

Sub Ir al botón 6_Click ()
On Error Resume Next
Hojas("CERRADO").Activar
Si Err <> 0 Entonces MsgBox "No se puede activar CERRADO. Es posible que haya sido eliminado o renombrado".
En caso de error, vaya a 0
End Sub

Sub Ir al botón 7_Click ()
On Error Resume Next
Hojas("NO VIABLE").Activar
If Err <> 0 Then MsgBox "No se puede activar NO VIABLE. Es posible que haya sido eliminado o renombrado".
En caso de error, vaya a 0
End Sub

Sub Ir al botón 8_Click ()
On Error Resume Next
Hojas("LEGAL").Activar
If Err <> 0 Then MsgBox "No se puede activar LEGAL. Es posible que haya sido eliminado o renombrado".
En caso de error, vaya a 0
End Sub

Sub Ir al botón 9_Click ()
On Error Resume Next
Hojas("RESUMEN").Activar
If Err <> 0 Then MsgBox "No se puede activar RESUMEN. Es posible que haya sido eliminado o renombrado".
En caso de error, vaya a 0



End Sub