Macro To link all views to BOM on Sheet 1

Try this.......

Option Explicit

Dim swApp As SldWorks.SldWorks

Dim swModel As SldWorks.ModelDoc2

Dim swDraw As SldWorks.DrawingDoc

Dim vSheetNames() As String

Dim swView As SldWorks.View

Dim i As Integer

Dim sName As String

Sub main()

sName = "Bill of Materials1"                 'Name of BOM table

Set swApp = Application.SldWorks

Set swModel = swApp.ActiveDoc

Set swDraw = swModel

vSheetNames = swDraw.GetSheetNames

Set swView = swDraw.GetFirstView

For i = 0 To UBound(vSheetNames)

swDraw.ActivateSheet vSheetNames(i)

Set swView = swDraw.GetFirstView

Do While Not swView Is Nothing

  swView.SetKeepLinkedToBOM True, sName

  Set swView = swView.GetNextView

Loop

Next

End Sub

Try this one. It doesn't need to know the name of the BOM. It will automatically find it.