Oops, forgot to mention that part. The error came at this point:

If Not cell Is Nothing Then



ob Phillips (replace somewhere in email address with gmail if mailing
direct) "a" wrote in message
nk.net...

Hello Bob,

Thanks for the code. I tried it, however, and got "named arguement not
found". Would you know why that would be?

Following is how I incorporated your code.

Thanks in advance,
Anita


Sub atryThisSix()
Dim i As Integer
Dim j As Integer
Dim k As Integer
Dim myAddress, theAddress
Dim myVendor As String, myProduct
Dim m
j = 1
k = 1
l = 2
Windows("trial.xls").Activate
Do Until Cells(k, j) = ""

If Cells(k, j).Value = "f" Then
myVendor = Cells(k, j).Offset(0, 6).Value
myProduct = Cells(k, j).Offset(0, 7).Value
Cells(k, 2).Value = myVendor
Cells(k, 3).Value = myProduct
Windows("Code.xls").Activate
Workbooks("Code.xls").Sheets(myVendor).Select
Columns("F:F").Select
Dim cell As Range

Set cell = Columns("f:f").Find(What:=myProduct, _
ater:=ActiveCell, _
LookIn:=xlFormulas, _
LookAt:=xlPart, _
SearchOrder:=xlByRows, _
SearchDirection:=xlNext, _
MatchCase:=False)
If Not cell Is Nothing Then
Windows("trial.xls").Activate
End If

myAddress = ActiveCell
Windows("trial.xls").Activate


Else
Cells(k, 2).Value = Cells(k, j).Offset(0, 9).Value
End If

k = k + 1

Loop
End Sub



Bob Phillips wrote:


I wouldn't use Find like that, I would use it to set a range object
variable, you can then just refer to that variable at any time

thereafter


Dim cell As Range

Set cell = Columns("f:f").Find(What:=myProduct, _
ater:=ActiveCell, _
LookIn:=xlFormulas, _
LookAt:=xlPart, _
SearchOrder:=xlByRows, _
SearchDirection:=xlNext, _
MatchCase:=False)
If Not cell Is Nothing Then
Windows("trial.xls").Activate
End If






Bob Phillips wrote:

where do you get that error?