Отвечу сам себе, может кому-то тоже пригодиться:
Set swSelMgr = swModel.SelectionManager
' строка выделаяет таблицу, где strTableName - переменная с имененм таблицы, vSheetNames(i) - имя листа на котором находится таблица
boolstatus = swModel.Extension.SelectByID2(strTableName & "@" & vSheetNames(i), "ANNOTATIONTABLES", -0.200202018099349, 0.323109941109023, 0, False, 0, Nothing, 0)
Set swTable = swSelMgr.GetSelectedObject6(1, -1)