Verktyg för kalkylblad - Kasta fel "Kan inte aktiveras"

Jag använder kalkylbladsverktygen, skapa ett indexark med knappar (VBA). När jag väljer en av knapparna körs koden som den ska, förutom att den fortsätter att skicka ett "Kan inte aktivera ODBC. Den kan ha tagits bort eller bytt namn." fel. Det gör samma sak för alla ark. Vad är problemet?? Koden är som följer:

Sub GoToButton1_Click()
On Error Resume Next
Sheets("ODBC").Aktivera
Om Err <> 0 Då MsgBox "Kan inte aktivera ODBC. Det kan ha tagits bort eller bytt namn."
På Fel GoTo 0
End Sub

Sub GoToButton2_Click()
On Error Resume Next
Sheets ("Master"). Aktivera
Om Err <> 0 Då MsgBox "Kan inte aktivera Master. Den kan ha tagits bort eller bytt namn."
På Fel GoTo 0
End Sub

Sub GoToButton3_Click()
On Error Resume Next
Sheets("ALL").Aktivera
Om Err <> 0 Då MsgBox "Kan inte aktivera ALLA. Den kan ha tagits bort eller bytt namn."
På Fel GoTo 0
End Sub

Sub GoToButton4_Click()
On Error Resume Next
Sheets("PAID").Aktivera
Om Err <> 0 Då MsgBox "Kan inte aktivera PAID. Det kan ha tagits bort eller bytt namn."
På Fel GoTo 0
End Sub

Sub GoToButton5_Click()
On Error Resume Next
Sheets ("SETTLED"). Aktivera
Om Err <> 0 Då MsgBox "Kan inte aktivera SETTLED. Det kan ha tagits bort eller bytt namn."
På Fel GoTo 0
End Sub

Sub GoToButton6_Click()
On Error Resume Next
Sheets("STÄNGD").Aktivera
Om Err <> 0 Då MsgBox "Kan inte aktivera STÄNGD. Den kan ha tagits bort eller bytt namn."
På Fel GoTo 0
End Sub

Sub GoToButton7_Click()
On Error Resume Next
Sheets("NON-VIABLE").Aktivera
Om Err <> 0 Då MsgBox "Kan inte aktivera NON-VIABLE. Det kan ha tagits bort eller bytt namn."
På Fel GoTo 0
End Sub

Sub GoToButton8_Click()
On Error Resume Next
Sheets("LEGAL").Aktivera
Om Err <> 0 Då MsgBox "Kan inte aktivera LEGAL. Det kan ha tagits bort eller bytt namn."
På Fel GoTo 0
End Sub

Sub GoToButton9_Click()
On Error Resume Next
Sheets("SUMMARY").Aktivera
Om Err <> 0 Då MsgBox "Kan inte aktivera SUMMARY. Den kan ha tagits bort eller bytt namn."
På Fel GoTo 0
End Sub