Я використовую Інструменти робочого аркуша, Створіть індексний аркуш із кнопками (VBA). Коли я вибираю одну з кнопок, код виконується належним чином, за винятком того, що він постійно видає повідомлення «Не вдається активувати ODBC. Можливо, його було видалено або перейменовано». помилка. Те ж саме для всіх аркушів. В чому проблема?? Код виглядає наступним чином:

Sub GoToButton1_Click()
On Error Resume Next
Таблиці ("ODBC"). Активувати
If Err <> 0 Then MsgBox "Не вдається активувати ODBC. Можливо, його було видалено або перейменовано."
При помилці GoTo 0
End Sub

Sub GoToButton2_Click()
On Error Resume Next
Аркуші ("Майстер"). Активуйте
If Err <> 0 Then MsgBox "Не вдається активувати Master. Можливо, його було видалено або перейменовано."
При помилці GoTo 0
End Sub

Sub GoToButton3_Click()
On Error Resume Next
Аркуші ("ВСІ"). Активувати
If Err <> 0 Then MsgBox "Не вдається активувати ВСІ. Можливо, його було видалено або перейменовано."
При помилці GoTo 0
End Sub

Sub GoToButton4_Click()
On Error Resume Next
Аркуші("ОПЛАЧЕНО").Активувати
If Err <> 0 Then MsgBox "Неможливо активувати PAID. Можливо, його було видалено або перейменовано."
При помилці GoTo 0
End Sub

Sub GoToButton5_Click()
On Error Resume Next
Аркуші ("SETTLED"). Активувати
If Err <> 0 Then MsgBox "Не вдається активувати SETTLED. Можливо, його було видалено або перейменовано."
При помилці GoTo 0
End Sub

Sub GoToButton6_Click()
On Error Resume Next
Аркуші ("ЗАКРИТО"). Активувати
If Err <> 0 Then MsgBox "Не вдається активувати ЗАКРИТО. Можливо, його було видалено або перейменовано."
При помилці GoTo 0
End Sub

Sub GoToButton7_Click()
On Error Resume Next
Аркуші («НЕЖИТТЄДІЙНІ»). Активувати
If Err <> 0 Then MsgBox "Неможливо активувати NON-VIABLE. Можливо, його було видалено або перейменовано."
При помилці GoTo 0
End Sub

Sub GoToButton8_Click()
On Error Resume Next
Аркуші ("LEGAL"). Активувати
If Err <> 0 Then MsgBox "Неможливо активувати LEGAL. Можливо, його було видалено або перейменовано."
При помилці GoTo 0
End Sub

Sub GoToButton9_Click()
On Error Resume Next
Аркуші("SUMMARY").Активувати
If Err <> 0 Then MsgBox "Не вдається активувати SUMMARY. Можливо, його було видалено або перейменовано."
При помилці GoTo 0



End Sub