Estou usando as ferramentas de planilha, criar uma planilha de índice com botões (VBA). Quando seleciono um dos botões, o código é executado como deveria, exceto que ele continua lançando um "Não é possível ativar o ODBC. Pode ter sido excluído ou renomeado". erro. Faz o mesmo para todas as folhas. Qual é o problema?? O código é o seguinte:

Sub GoToButton1_Click()
On Error Resume Next
Planilhas("ODBC").Ativar
If Err <> 0 Then MsgBox "Não é possível ativar o ODBC. Ele pode ter sido excluído ou renomeado."
Em erro GoTo 0
End Sub

Sub GoToButton2_Click()
On Error Resume Next
Planilhas ("Mestre"). Ative
If Err <> 0 Then MsgBox "Não é possível ativar o Master. Pode ter sido deletado ou renomeado."
Em erro GoTo 0
End Sub

Sub GoToButton3_Click()
On Error Resume Next
Sheets("ALL").Ativar
If Err <> 0 Then MsgBox "Não é possível ativar TODOS. Pode ter sido deletado ou renomeado."
Em erro GoTo 0
End Sub

Sub GoToButton4_Click()
On Error Resume Next
Planilhas("PAGO").Ativar
If Err <> 0 Then MsgBox "Não é possível ativar PAGO. Pode ter sido deletado ou renomeado."
Em erro GoTo 0
End Sub

Sub GoToButton5_Click()
On Error Resume Next
Sheets("SETTLED").Ativar
If Err <> 0 Then MsgBox "Não é possível ativar SETTLED. Pode ter sido deletado ou renomeado."
Em erro GoTo 0
End Sub

Sub GoToButton6_Click()
On Error Resume Next
Planilhas("FECHADO").Ativar
If Err <> 0 Then MsgBox "Não é possível ativar FECHADO. Pode ter sido deletado ou renomeado."
Em erro GoTo 0
End Sub

Sub GoToButton7_Click()
On Error Resume Next
Sheets("NÃO VIÁVEL").Ativar
If Err <> 0 Then MsgBox "Não é possível ativar NON-VIABLE. Pode ter sido deletado ou renomeado."
Em erro GoTo 0
End Sub

Sub GoToButton8_Click()
On Error Resume Next
Sheets("LEGAL").Ativar
If Err <> 0 Then MsgBox "Impossível ativar LEGAL. Pode ter sido deletado ou renomeado."
Em erro GoTo 0
End Sub

Sub GoToButton9_Click()
On Error Resume Next
Planilhas("RESUMO").Ativar
If Err <> 0 Then MsgBox "Não é possível ativar SUMMARY. Ele pode ter sido excluído ou renomeado."
Em erro GoTo 0



End Sub