Access VBA usuniecie tabeli

Witam,

potrzebowałbym kodu VBA który usunie mi z bazy tabele które zawieraja określony fragment tekstu "importErrors"

dzieki

Dim t as TableDef
    For Each t In CurrentDB.TableDefs
        If t.Name Like "importErrors*" Then DoCmd.runSQL("DROP TABLE " & t.Name)
    Next