Ik gebruik de werkbladtools, maak een indexblad met knoppen (VBA). Wanneer ik een van de knoppen selecteer, werkt de code zoals het hoort, behalve dat het steeds een "Kan ODBC niet activeren. Het is mogelijk verwijderd of hernoemd." fout. Het doet hetzelfde voor alle bladen. Wat is het probleem?? De code is als volgt:

Sub GoToButton1_Click()
On Error Resume Next
Bladen("ODBC"). Activeren
If Err <> 0 Then MsgBox "Kan ODBC niet activeren. Het is mogelijk verwijderd of hernoemd."
On Error GoTo 0
End Sub

Sub GoToButton2_Click()
On Error Resume Next
Bladen ("Master"). Activeren
If Err <> 0 Then MsgBox "Kan Master niet activeren. Het is mogelijk verwijderd of hernoemd."
On Error GoTo 0
End Sub

Sub GoToButton3_Click()
On Error Resume Next
Bladen ("ALL"). Activeren
If Err <> 0 Then MsgBox "Kan ALLES niet activeren. Het is mogelijk verwijderd of hernoemd."
On Error GoTo 0
End Sub

Sub GoToButton4_Click()
On Error Resume Next
Bladen ("BETAALD"). Activeren
If Err <> 0 Then MsgBox "Kan PAID niet activeren. Het is mogelijk verwijderd of hernoemd."
On Error GoTo 0
End Sub

Sub GoToButton5_Click()
On Error Resume Next
Bladen("INGESTELD").Activeren
If Err <> 0 Then MsgBox "Kan SETTLED niet activeren. Het is mogelijk verwijderd of hernoemd."
On Error GoTo 0
End Sub

Sub GoToButton6_Click()
On Error Resume Next
Bladen("GESLOTEN"). Activeren
If Err <> 0 Then MsgBox "Kan GESLOTEN niet activeren. Het is mogelijk verwijderd of hernoemd."
On Error GoTo 0
End Sub

Sub GoToButton7_Click()
On Error Resume Next
Bladen ("NON-VIABLE"). Activeren
If Err <> 0 Then MsgBox "Kan NON-VIABLE niet activeren. Het is mogelijk verwijderd of hernoemd."
On Error GoTo 0
End Sub

Sub GoToButton8_Click()
On Error Resume Next
Bladen("LEGAL"). Activeren
If Err <> 0 Then MsgBox "Kan LEGAL niet activeren. Het is mogelijk verwijderd of hernoemd."
On Error GoTo 0
End Sub

Sub GoToButton9_Click()
On Error Resume Next
Bladen("OVERZICHT"). Activeren
If Err <> 0 Then MsgBox "Kan SUMMARY niet activeren. Het is mogelijk verwijderd of hernoemd."
On Error GoTo 0



End Sub