Sub SelectRange(id As Integer)
' Ìàêðîñ1 Ìàêðîñ
    Dim i As Integer
    Dim r As Integer
    
    Set xlBook = GetObject(CopyFile(id))
    Set xlSheet = xlBook.Sheets( 2 )
    poezd_num = poezd(id)
    i =  1 
    Do
        xlSheet.Cells(i,  30 ) = "+"
        i = i +  1 
    Loop While Trim(xlSheet.Cells(i,  2 )) <> "1"
    
    For Each pzd In poezd_num
        r = i
        Do While Trim(xlSheet.Cells(r,  5 )) <> ""
            If Trim(xlSheet.Cells(r,  4 )) = pzd Or Trim(xlSheet.Cells(r,  3 )) = "Âñåãî ïî " & pzd Then
                xlSheet.Cells(r,  30 ) = "+"
            End If
            r = r +  1 
        Loop
    Next pzd
    
    Call DeleteAther
    
    xlBook.Close True
    xlApp.Quit
    Set xlSheet = Nothing
    Set xlBook = Nothing
    Set xlApp = Nothing
    MsgBox "Все !!!"
End Sub