Private Sub UserForm_Initialize()
    Dim pointcoordinates As pointcoordinatestype, horizontaloffsetinpoints As Double, verticaloffsetinpoints As Double
    With Me
        horizontaloffsetinpoints = (.Width - .InsideWidth) / 2
        verticaloffsetinpoints = 1
        Call GetPointCoordinates(ActiveCell.Offset(0, 1), pointcoordinates)
        .StartUpPosition = 0
        .Top = pointcoordinates.Top - verticaloffsetinpoints
        .Left = pointcoordinates.Left - horizontaloffsetinpoints
    End With
    Dim ws          As Worksheet

'    Set wbCurrent = ActiveWorkbook("Бланк заказа") это как было в одной книге, а ниже я пытаюсь обратиться к той книге
    Set wbCurrent = Workbooks("Прайс Общий с макросами и многовыпадающитм списком")
   
    For Each ws In wbCurrent.Worksheets
        If InStr(1, ws.Name, ".", vbTextCompare) > 0 Then
            n = n + 1
            Level1.ListBox1.AddItem (ws.Name)
            If Len(ws.Name) > lenT Then lenT = Len(ws.Name)
        End If
    Next

    Dim ihWnd, hStyle
    If Val(Application.Version) < 9 Then
        ihWnd = FindWindow("ThunderXFrame", Me.Caption)
    Else
        ihWnd = FindWindow("ThunderDFrame", Me.Caption)
    End If
    hStyle = GetWindowLong(ihWnd, GWL_STYLE)
    hStyle = hStyle And Not WS_CAPTION And Not WS_BORDER
    SetWindowLong ihWnd, GWL_STYLE, hStyle
    SetWindowLong ihWnd, GWL_EXSTYLE, 0
    DrawMenuBar ihWnd
    Level1.Height = n * 20
    Level1.Height = Level1.Height + GWL_EXSTYLE
    Level1.Width = lenT * 2
    Level1.ListBox1.Height = Level1.Height
    Level1.ListBox1.Width = Level1.Width

End Sub