Hi J.W. Aldridge

See this page
http://www.rondebruin.nl/copy5.htm#sheet

Change this part

'Set filter range : A1 is the top left cell of your filter range and
'the header of the first column, D is the last column in the filter range
Set rng = ws1.Range("A1:D" & Rows.Count)

'Set Field number of the filter column
'This example filters on the first field in the range(change the field if needed)
'In this case the range starts in A so Field:=1 is column A, 2 = column B, ......
FieldNum = 1


To

'Set filter range : A1 is the top left cell of your filter range and
'the header of the first column, D is the last column in the filter range
Set rng = ws1.Range("A1:P" & Rows.Count)

'Set Field number of the filter column
'This example filters on the first field in the range(change the field if needed)
'In this case the range starts in A so Field:=1 is column A, 2 = column B, ......
FieldNum = 16

And change the name of the sheet to the sheet with your data
'Name of the sheet with your data
Set ws1 = Sheets("Sheet1") '<<< Change


I want to move (not copy
After the code is ready delete the records on the datasheet



--

Regards Ron de Bruin
http://www.rondebruin.nl/tips.htm


"J.W. Aldridge" wrote in message
...
I have data in columns A:P65000 on "DataSheet". (Row 1 includes the
header for each row.) In column P, I have the group names.

I want to move (not copy) each row to its own sheet (and name it)
based on the unique group names in column p.


I have seen several codes claiming to do this (and actually may) but I
cant get them to work for me.


thanx