0
Undo
Votes
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
End Sub
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
End Sub
- Page :
- 1
There are no replies made for this post yet.