Call the following code from a "Delete All Talbes" button or similar.
Public Sub DeleteTables()
Dim tdf As TableDef
For Each tdf In CurrentDb.TableDefs
If Not Left(tdf.Name, 4) = "MSys" Then ' Don't delete System Tables
DoCmd.DeleteObject acTable, tdf.Name
DoCmd.Echo True, "Progress: Deleting table " & tdf.Name
End If
Next tdf
End Sub
QED.
G LS