Nástroje listu - Chyba „Nelze aktivovat“

Používám nástroje listu, vytvořit indexový list s tlačítky (VBA). Když vyberu jedno z tlačítek, kód běží tak, jak má, až na to, že stále hází "Nelze aktivovat ODBC. Možná bylo smazáno nebo přejmenováno." chyba. Totéž dělá pro všechny listy. Co je za problém?? Kód je následující:

Sub GoToButton1_Click()
On Error Resume Next
Sheets("ODBC").Aktivovat
If Err <> 0 Then MsgBox "Nelze aktivovat ODBC. Možná bylo odstraněno nebo přejmenováno."
Při chybě GoTo 0
End Sub

Sub GoToButton2_Click()
On Error Resume Next
Tabulky („Mistr“). Aktivovat
If Err <> 0 Then MsgBox "Nelze aktivovat Master. Možná byl smazán nebo přejmenován."
Při chybě GoTo 0
End Sub

Sub GoToButton3_Click()
On Error Resume Next
Listy("VŠECHNY").Aktivovat
If Err <> 0 Then MsgBox "Nelze aktivovat VŠECHNY. Možná byla smazána nebo přejmenována."
Při chybě GoTo 0
End Sub

Sub GoToButton4_Click()
On Error Resume Next
Tabulky("ZAPLACENO").Aktivovat
If Err <> 0 Then MsgBox "Nelze aktivovat PAID. Možná byla smazána nebo přejmenována."
Při chybě GoTo 0
End Sub

Sub GoToButton5_Click()
On Error Resume Next
Listy("SETTLED").Aktivovat
If Err <> 0 Then MsgBox "Nelze aktivovat SETTLED. Je možné, že byl smazán nebo přejmenován."
Při chybě GoTo 0
End Sub

Sub GoToButton6_Click()
On Error Resume Next
Listy("ZAVŘENO").Aktivovat
If Err <> 0 Then MsgBox "Nelze aktivovat ZAVŘENO. Možná bylo smazáno nebo přejmenováno."
Při chybě GoTo 0
End Sub

Sub GoToButton7_Click()
On Error Resume Next
Sheets("NEŽIVOTNÉ").Aktivovat
If Err <> 0 Then MsgBox "Nelze aktivovat NON-VIABLE. Je možné, že byl smazán nebo přejmenován."
Při chybě GoTo 0
End Sub

Sub GoToButton8_Click()
On Error Resume Next
Listy("PRÁVNÍ").Aktivovat
If Err <> 0 Then MsgBox "Nelze aktivovat LEGAL. Může být odstraněn nebo přejmenován."
Při chybě GoTo 0
End Sub

Sub GoToButton9_Click()
On Error Resume Next
Sheets("SUMMARY").Aktivovat
If Err <> 0 Then MsgBox "Nelze aktivovat SUMMARY. Možná bylo odstraněno nebo přejmenováno."
Při chybě GoTo 0
End Sub