Arbejdsarkværktøjer - Kaste fejlen "Kan ikke aktivere"

Jeg bruger arbejdsarkværktøjerne, opret et indeksark med knapper (VBA). Når jeg vælger en af ​​knapperne, kører koden, som den skal, bortset fra, at den bliver ved med at kaste et "Kan ikke aktivere ODBC. Det kan være blevet slettet eller omdøbt." fejl. Det gør det samme for alle ark. Hvad er problemet?? Koden er som følger:

Sub GoToButton1_Click()
On Error Resume Next
Sheets ("ODBC"). Aktiver
Hvis Err <> 0 Then MsgBox "Kan ikke aktivere ODBC. Det kan være blevet slettet eller omdøbt."
På Fejl GoTo 0
End Sub

Sub GoToButton2_Click()
On Error Resume Next
Sheets ("Master"). Aktiver
Hvis Err <> 0 Så MsgBox "Kan ikke aktivere Master. Det kan være blevet slettet eller omdøbt."
På Fejl GoTo 0
End Sub

Sub GoToButton3_Click()
On Error Resume Next
Sheets("ALL").Aktiver
Hvis Err <> 0 Så MsgBox "Kan ikke aktivere ALLE. Det kan være blevet slettet eller omdøbt."
På Fejl GoTo 0
End Sub

Sub GoToButton4_Click()
On Error Resume Next
Sheets ("BETALT"). Aktiver
Hvis Err <> 0 Så MsgBox "Kan ikke aktivere PAID. Det kan være blevet slettet eller omdøbt."
På Fejl GoTo 0
End Sub

Sub GoToButton5_Click()
On Error Resume Next
Ark ("SETTLED"). Aktiver
Hvis Err <> 0 Then MsgBox "Kan ikke aktivere SETTLED. Det kan være blevet slettet eller omdøbt."
På Fejl GoTo 0
End Sub

Sub GoToButton6_Click()
On Error Resume Next
Sheets ("LUKKET"). Aktiver
Hvis Err <> 0 Så MsgBox "Kan ikke aktivere LUKKET. Det kan være blevet slettet eller omdøbt."
På Fejl GoTo 0
End Sub

Sub GoToButton7_Click()
On Error Resume Next
Sheets("Ikke-LEVÆRLIG").Aktivér
Hvis Err <> 0 Then MsgBox "Kan ikke aktivere NON-VIABLE. Det kan være blevet slettet eller omdøbt."
På Fejl GoTo 0
End Sub

Sub GoToButton8_Click()
On Error Resume Next
Sheets ("LEGAL"). Aktiver
Hvis Err <> 0 Then MsgBox "Kan ikke aktivere LEGAL. Det kan være blevet slettet eller omdøbt."
På Fejl GoTo 0
End Sub

Sub GoToButton9_Click()
On Error Resume Next
Sheets ("RESUMÉ"). Aktiver
Hvis Err <> 0 Then MsgBox "Kan ikke aktivere SUMMARY. Det kan være blevet slettet eller omdøbt."
På Fejl GoTo 0
End Sub