binding multiple xrefs?

How do I bind all xref's in a drawing?

 

With VBA or in general??

 

Leonard,
This could be a start

John Coon

Private Sub bind()
Dim blocks As AcadBlocks
On Error GoTo ERR_Control
bPrefixName = True
Set blocks = ThisDrawing.blocks
For Each Block In blocks
If Block.IsXRef Then
On Error GoTo ERR_Control
Block.bind (bPrefixName)
End If
Next

ERR_Control:
MsgBox "External Reference Errors were encountered!" & vbCr & _
"The Bind Macro was unable to bind all Xrefs." & vbCr & _
"You MUST manually bind the Xrefs, or insert" & vbCr & _
"them as blocks.", vbCritical, "Alert"
End Sub

 

With VBA

 

It's telling me that variable bPrefixName is not defined.