<p>Option Explicit</p><p></p><p>Dim swApp As SldWorks.SldWorks</p><p>Dim swModel As SldWorks.ModelDoc2</p><p>Dim swDrawing As SldWorks.DrawingDoc</p><p></p><p>Sub main()</p><p></p><p>Set swApp = Application.SldWorks</p><p>Set swModel = swApp.ActiveDoc</p><p></p><p>Select Case True</p><p>Case swModel Is Nothing, swModel.GetType <> swDocumentTypes_e.swDocDRAWING</p><p>Call swApp.SendMsgToUser2("Please Open a drawing and try again...", swMbInformation, swMbOk)</p><p>Exit Sub</p><p>End Select</p><p></p><p>Set swDrawing = swModel</p><p></p><p>Dim swTable As SldWorks.TableAnnotation</p><p>Set swTable = swDrawing.InsertTableAnnotation2( _</p><p>UseAnchorPoint:=False _</p><p>, X:=0, Y:=0 _</p><p>, AnchorType:=swBOMConfigurationAnchor_BottomLeft _</p><p>, TableTemplate:="" _</p><p>, Rows:=swDrawing.GetSheetCount _</p><p>, Columns:=2)</p><p></p><p>' Alternate Anchor Positions</p><p>' swBOMConfigurationAnchor_BottomLeft</p><p>' swBOMConfigurationAnchor_BottomRight</p><p>' swBOMConfigurationAnchor_TopLeft</p><p>' swBOMConfigurationAnchor_TopRight</p><p></p><p>swTable.Title = "Contents"</p><p>swTable.TitleVisible = True</p><p></p><p>Dim vSheetNames As Variant: vSheetNames = swDrawing.GetSheetNames</p><p></p><p>Dim i As Integer</p><p>For i = 1 To swTable.RowCount - 1</p><p>swTable.Text(i, 0) = i</p><p>swTable.Text(i, 1) = vSheetNames(i - 1)</p><p>Next</p><p></p><p>End Sub</p><p></p>