Public Sub OpenTable() Dim pMxDoc As IMxDocument, pMap As IMap Set pMxDoc = ThisDocument Set pMap = pMxDoc.FocusMap Dim pStdAloneTableCollection As IStandaloneTableCollection Set pStdAloneTableCollection = pMxDoc.FocusMap Dim pStandalonetable As Istandalonetable Set pStandalonetable = pStdAloneTableCollection.StandaloneTable(0) 'Debug.Print pStandalonetable.Name Debug.Print pStandalonetable.Table.Fields.FieldCountEnd Sub