New Workbook for each worksheet

[IRish3538]

After you add the new worksheet, pop this in there:

' assuming you want it to save in the same folder
 fldr = ThisWorkbook.Path
ThisWorkbook.Sheets("UniqueList").Select
         ThisWorkbook.Sheets("UniqueList").Copy
ActiveWorkbook.SaveAs (fldr & "\UniqueList")
         Workbooks("UniqueList.xlsx").Close