Я использую инструменты рабочего листа, создаю индексный лист с кнопками (VBA). Когда я выбираю одну из кнопок, код работает так, как должен, за исключением того, что он продолжает выдавать «Невозможно активировать ODBC. Возможно, он был удален или переименован». ошибка. Он делает то же самое для всех листов. В чем проблема?? Код выглядит следующим образом:
Подпрограмма GoToButton1_Click()
On Error Resume Next
Листы("ODBC").Активировать
Если Err <> 0 Then MsgBox «Не удается активировать ODBC. Возможно, он был удален или переименован».
По ошибке GoTo 0
End Sub
Подпрограмма GoToButton2_Click()
On Error Resume Next
Таблицы («Мастер»). Активировать
Если Err <> 0 Then MsgBox "Невозможно активировать Master. Возможно, он был удален или переименован."
По ошибке GoTo 0
End Sub
Подпрограмма GoToButton3_Click()
On Error Resume Next
Листы("ВСЕ").Активировать
Если Err <> 0 Then MsgBox "Невозможно активировать ВСЕ. Возможно, он был удален или переименован".
По ошибке GoTo 0
End Sub
Подпрограмма GoToButton4_Click()
On Error Resume Next
Листы("ОПЛАЧЕННЫЕ").Активировать
Если Err <> 0 Then MsgBox "Невозможно активировать PAID. Возможно, он был удален или переименован."
По ошибке GoTo 0
End Sub
Подпрограмма GoToButton5_Click()
On Error Resume Next
Листы("УСТАНОВЛЕНО").Активировать
Если Err <> 0 Then MsgBox "Невозможно активировать SETTLED. Возможно, он был удален или переименован."
По ошибке GoTo 0
End Sub
Подпрограмма GoToButton6_Click()
On Error Resume Next
Листы("ЗАКРЫТО").Активировать
Если Err <> 0 Then MsgBox «Невозможно активировать ЗАКРЫТО. Возможно, оно было удалено или переименовано».
По ошибке GoTo 0
End Sub
Подпрограмма GoToButton7_Click()
On Error Resume Next
Листы("НЕ ЖИЗНЕСПОСОБНЫЕ").Активировать
Если Err <> 0 Then MsgBox «Невозможно активировать NON-VIABLE. Возможно, он был удален или переименован».
По ошибке GoTo 0
End Sub
Подпрограмма GoToButton8_Click()
On Error Resume Next
Sheets("LEGAL").Активировать
Если Err <> 0 Then MsgBox "Невозможно активировать LEGAL. Возможно, он был удален или переименован."
По ошибке GoTo 0
End Sub
Подпрограмма GoToButton9_Click()
On Error Resume Next
Sheets("SUMMARY").Активировать
Если Err <> 0 Then MsgBox «Невозможно активировать SUMMARY. Возможно, он был удален или переименован».
По ошибке GoTo 0
End Sub