Type Info:
TextTableView As TextTableView
Dim View As TextTableView Set View = Application.ActiveProject.ProjectDocument.TextTableView