Originally Posted by Djblois
Charlize,
I feel it we are getting closer. Thank you for all the help so far. This is the code I have from yours:
[vba]Sub HighlightTeddyProducts()
Dim cell As Range
Dim lookup As Range
Dim firstaddress As String
'or dim as workbooks ?
Dim CWB as workbook
set CWB = ThisWorkbook
For Each cell In CWB.Worksheets(1).Range("B2", Range("B2").End(xlDown).Offset(-1, 0))
Dim WB as workbook
Set WB = workbooks.open("your workbook with data to look for.xls")
With WB.Worksheets(2).Range("C1:C9")
'Lookup number of description
Set lookup = .Find(cell, LookIn:=xlValues)
'In WB(2).Worksheets(2)
'looking for value of column I
If Not lookup Is Nothing Then
firstaddress = lookup.Address
Do
'if value found check for offset value
If lookup.Offset(, 8) = "Teddy I" Then
'if true then column b is bold
cell.Font.Bold = True
End If
'next search
Set lookup = .FindNext(lookup)
Loop While Not lookup Is Nothing And lookup.Address <> firstaddress
End If
End With
Next cell
WB.Close
End Sub[/vba]
It isn't giving me an error but it doesn't highlight any of the products that it is supposed to highlight.
