The procedure must be placed in the "Quote" sheet module
Sub AAA()
Dim wksQs As Worksheet
Dim rngData As Range
Dim vData As Variant
Dim i As Long
Dim Qte As String
Dim Rev As Long
Dim blnFound As Boolean
Qte = Me.Range("L1").Value
Rev = Me.Range("H1").Value
Set wksQs = Sheet9
Set rngData = wksQs.Range("C5").CurrentRegion.Columns("B:C")
With rngData
Set rngData = .Offset(1).Resize(.Rows.Count - 1)
End With
vData = rngData.Value
For i = 1 To UBound(vData)
If vData(i, 1) = Qte Then
If vData(i, 2) = Rev Then
blnFound = True
rngData.Cells(i, 1).Offset(, 2).Value = "Rev'd"
Exit For
End If
End If
Next i
If Not blnFound Then
MsgBox "Not found Quote #"
End If
End Sub
This is one of the simpler solutions to the problem.
Artik