Prova a scrivere all'inizio della Routine (o comunque prima della riga in cui si verificherà l'errore):
codice:
On Error GoTO Errore
Poi scrivi tutto il codice da eseguire nel caso tutto vada bene e alla fine della routine:

codice:
.....
Exit sub

Errore:
     If Err.Number = -2147217865 Then 'tabella non trovata
             MsgBox ("La tabella non è stata creata. " & _
             Per creare ora la tabella premere il tasto RISULTATI")
     End If

end sub

Per ulteriori chiarimenti cerca nella guida l'Istruzione On Error