Assuming the worksheetname in the other workbook is the product identifier
in Row 6
Sub DisperseData()
Dim rng as Range
Dim rng1 as Range
Dim cell as Range
Dim v as Variant
With Workbooks("Source.xls").Worksheets("SrcData")
set rng = .Range(.cells(6,1),.cells(6,256).End(xltoLeft))
for each cell in rng
v = cell.Value
set rng1 = Workbooks("Destination.xls") _
.Worksheets(v).Cells(6,256).End(xltoLeft)
if not isempty(rng1) then set rng1 = rng1.offset(0,1)
cell.entirecolumn.Copy Destination:=rng1.EntireColumn
Next
End Sub

--
Regards,
Tom Ogilvy

"Mikeice" <Mikeice.1q1rua_1117796707.211@excelforum-nospam.com> wrote in
message news:Mikeice.1q1rua_1117796707.211@excelforum-nospam.com...
>
> Hi All
>
> Could I be helped with the following:
>
> I have a worksheet with columns of information that I need to have
> filtered by values in Row 6.
>
> Row 6 contains an identifier of 8 products 1 - 8.
>
> I want to filter this and import into 8 different worksheets in a
> seperate workbook.
>
> IS that possible?
>
>
> --
> Mikeice
> ------------------------------------------------------------------------
> Mikeice's Profile:
http://www.excelforum.com/member.php...o&userid=22467
> View this thread: http://www.excelforum.com/showthread...hreadid=376242
>