@Norie to your question, nathan:
This is the "core" of the code, where P column is a result of remove duplicates operation, and for each unique value in column P after the removal a new worksheet should be created, and named.
The delete macro (in my first post) just needs to "clear" after closing.
***As I'm sure Norie at least knows by heart LIN is just the name of a worksheet***
For Z = 2 To U + 1
ThisWorkbook.Sheets.Add.Name = L.Range("P2").Value
LIN.Range("A1:Q" & LIN.UsedRange.Rows.Count).AdvancedFilter _
Action:=xlFilterCopy, _
CriteriaRange:=L.Range("A1:Q2"), _
CopyToRange:=Sheets(Z).Range("A1"), Unique:=False
Sheets(Z).Columns.AutoFit
L.Activate
L.Range("P2").Delete Shift:=xlUp
Next Z
Bookmarks