Solved! Go to Solution.
Dim mxDoc As IMxDocument Set mxDoc = ThisDocument Dim layer As IFeatureLayer Set layer = mxDoc.FocusMap.layer(4) Dim tableWindow As ITableWindow Set tableWindow = New tableWindow Dim window As ITableWindow Set window = tableWindow.FindViaFeatureLayer(layer, True) If window Is Nothing Then MsgBox "Window is not visible" Else window.Show False End If
Dim mxDoc As IMxDocument Set mxDoc = ThisDocument Dim layer As IFeatureLayer Set layer = mxDoc.FocusMap.layer(4) Dim tableWindow As ITableWindow Set tableWindow = New tableWindow Dim window As ITableWindow Set window = tableWindow.FindViaFeatureLayer(layer, True) If window Is Nothing Then MsgBox "Window is not visible" Else window.Show False End If