Allen,

Tom caught my error. I told you to paste the code in the "empty space".

I meant in the space after
Sub Mysub()
and before
End Sub

Thanks Tom for catching this...
(need to work on my communication skills)

--
sb
"Allen Nance" wrote in message
...


Steve,

followed the instructions... Got this error: Only comments, directives,
and declarations are permitted outside procedures.

"A").End(xlUp).Row on this xlUp was highlighted

code in vb


Sub Category()

End Sub

lrow = Workbooks("Feed").Sheets("Sheet1").Cells(Rows.Coun t, _
"A").End(xlUp).Row
Application.ScreenUpdating = False ' helps speed up the code.
For x = 1 To lrow
Workbooks(Workbooks("Feed").Sheets("Sheet1").Cells (x,1) = _
Worksheetfunction.Index(Workbooks("Master").Sheets ("Sheet1"). _
Columns(2),Match(Workbooks(Workbooks("Feed"). _
Sheets("Sheet1").Cells(x,1),Worksheetfunction.Inde x( _
Workbooks("Master").Sheets("Sheet1").Columns(1),0) ,1)
Next
Application.ScreenUpdating = True


*** Sent via Developersdex http://www.developersdex.com ***
Don't just participate in USENET...get rewarded for it!