Dim i               As Integer
    Dim arrRel( 1 )       As String
    Dim objExcel        As Object
    Dim objWorkbook     As Object
    Dim objRange        As Object
    Dim objCell         As Object
    Dim objWorksheet    As Object
    Dim arrRelUbound As Integer
    
    arrRel( 0 ) = "3"
    arrRel( 1 ) = "67"
    
    arrRelUbound = UBound(arrRel)
    
    Set objExcel = CreateObject("Excel.Application")
    'objExcel.Visible = True
    Set objWorkbook = objExcel.Workbooks.Open("c:\Test\1.xls")
    Set objWorksheet = objWorkbook.Worksheets( 1 )
    
    
    Application.ScreenUpdating = False
    Application.Calculation = xlCalculationManual
    
    Set objRange = objWorksheet.UsedRange.Columns( 1 ).Cells

    For Each objCell In objRange
        For i =  0  To arrRelUbound
            If Val(objCell.Text) = Val(arrRel(i)) Then
                objWorksheet.Rows(objCell.Rows.Row).Interior.ColorIndex =  33 
                Exit For
            End If
        Next
    Next
    
    Application.Calculation = xlCalculationAutomatic
    Application.ScreenUpdating = True
    
    objExcel.Visible = True
    Set objExcel = Nothing
    Set objWorkbook = Nothing
    Set objRange = Nothing
    Set objCell = Nothing
    Set objWorksheet = Nothing