Skip to main content
Support is Online
We're back! We are here to assist you. Please be patient, we will respond to your tickets shortly.
Official support hours
Monday To Friday
From 09:00 To 17:30
  Wednesday, 16 May 2018
  2 Replies
  4.7K Visits
0
Votes
Undo
I'm using the Worksheet Tools, Create an Index Sheet with buttons (VBA). When I select one of the buttons the code runs as it should, except, it keeps throwing a "Cannot activate ODBC. It may have been deleted or renamed." error. It does the same for all sheets. What's the problem?? The code is as follows:

Sub GoToButton1_Click()
On Error Resume Next
Sheets("ODBC").Activate
If Err <> 0 Then MsgBox "Cannot activate ODBC. It may have been deleted or renamed."
On Error GoTo 0
End Sub

Sub GoToButton2_Click()
On Error Resume Next
Sheets("Master").Activate
If Err <> 0 Then MsgBox "Cannot activate Master. It may have been deleted or renamed."
On Error GoTo 0
End Sub

Sub GoToButton3_Click()
On Error Resume Next
Sheets("ALL").Activate
If Err <> 0 Then MsgBox "Cannot activate ALL. It may have been deleted or renamed."
On Error GoTo 0
End Sub

Sub GoToButton4_Click()
On Error Resume Next
Sheets("PAID").Activate
If Err <> 0 Then MsgBox "Cannot activate PAID. It may have been deleted or renamed."
On Error GoTo 0
End Sub

Sub GoToButton5_Click()
On Error Resume Next
Sheets("SETTLED").Activate
If Err <> 0 Then MsgBox "Cannot activate SETTLED. It may have been deleted or renamed."
On Error GoTo 0
End Sub

Sub GoToButton6_Click()
On Error Resume Next
Sheets("CLOSED").Activate
If Err <> 0 Then MsgBox "Cannot activate CLOSED. It may have been deleted or renamed."
On Error GoTo 0
End Sub

Sub GoToButton7_Click()
On Error Resume Next
Sheets("NON-VIABLE").Activate
If Err <> 0 Then MsgBox "Cannot activate NON-VIABLE. It may have been deleted or renamed."
On Error GoTo 0
End Sub

Sub GoToButton8_Click()
On Error Resume Next
Sheets("LEGAL").Activate
If Err <> 0 Then MsgBox "Cannot activate LEGAL. It may have been deleted or renamed."
On Error GoTo 0
End Sub

Sub GoToButton9_Click()
On Error Resume Next
Sheets("SUMMARY").Activate
If Err <> 0 Then MsgBox "Cannot activate SUMMARY. It may have been deleted or renamed."
On Error GoTo 0 KUTools VBError.PNG KUTools VBError.PNG KUTools VBError.PNG
End Sub
5 years ago
·
#1586
0
Votes
Undo
Hello,
Sorry, you cannot access the functions or features of the software in a VBA code. :)
We don't support such operation yet.
That's awesome support! I'll be sure to cancel all of our registrations when the 3 year period is up!
BTW - The solution is to just remove the line of code (If Err <> 0 Then MsgBox "Cannot activate ODBC. It may have been deleted or renamed.)
  • Page :
  • 1
There are no replies made for this post yet.