Delete tables whose names end in 1

[eti3nne]

I have imported what is effectively a duplicate set of tables etc. from one db to another. All the imported objects (where duplicate names) are suffixed with a 1 as expected.

How can I delete all tables whose names end in a 1, via code.

Thanks for looking.

 

[PWise]

run this code

dim rst as recordset
set rst =currentdb.openrecordset "SELECT MSysObjects.Name as tablename FROM MSysObjects
WHERE MSysObjects.Type=1 and right(name,1)='1'"
with rst
do while not .eof
currentdb.execute "drop table " & !tablename
.movenext
loop
end with