Private Sub Workbook_Open()
    For x =  1  To ThisWorkbook.Worksheets("1").Shapes.Count
        ThisWorkbook.Worksheets("1").Shapes(x).ControlFormat.ListFillRange = _
            "'" & ThisWorkbook.Path & "\[Справочник1.XLS]типы реестров'!$A$2:$A$25"
    Next x
End Sub

Sub Workbook_Open()
    Dim a
    Dim Reestr As Worksheet
    Set Reestr = ThisWorkbook.Worksheets("Реестр")
    For Each a In ThisWorkbook.LinkSources
        If a Like "*Справочники1.xls*" Then
            ThisWorkbook.ChangeLink Name:=a, NewName:=ThisWorkbook.Path & "\Справочники1.xls", _
                Type:=xlExcelLinks
        ElseIf a Like "*Справочники2.xls*" Then
            ThisWorkbook.ChangeLink Name:=a, NewName:=ThisWorkbook.Path & "\Справочники2.xls", _
                Type:=xlExcelLinks
        End If
    Next
    Workbooks.Open ThisWorkbook.Path & "\Справочники1.xls"
    Workbooks.Open ThisWorkbook.Path & "\Справочники2.xls"
    Reestr.Activate
End Sub