ник: ShadowOfSun
вместо Debug.Print'ов напиши
if "ИмяТвоейТаблицы" = tbl.Name then tblKey=True
перед поиском выставь tblKey=False
а в конце процедуры результат будет
если таблица есть tblKey=True
если таблицы нет tblKey=False
P. S. Час, по моему писать программы на обработчиках ошибок это близко к парковке по звуку "Бумм"