Hi all.  I was able to find this code.  This takes the data sheet, and
based on the values of column a creates a sheet for each unique
instance and copies the data in.  Can this be modified to incorporate
the list of values to do this to?  Basically, The data sheet has over
300 customers in column A.  I dont want to create 300 sheets!  Only
about 20, that will be in the list in Control("A1:A20").  Thanks!!

Sub ParseData()

Application.ScreenUpdating = False

With Sheets("Data")
lr = .Cells(Rows.Count, "a").End(xlUp).Row
 .Range("A1:A" & lr).AdvancedFilter Action:=xlFilterInPlace,
Unique:=True
For Each c In .Range("a2:a" & lr).SpecialCells(xlVisible)
On Error Resume Next
If Worksheets(c.Value) Is Nothing Then
 Worksheets.Add(After:=Worksheets(Worksheets.Count)).Name = c
End If
 .ShowAllData
 .Range("a1:a" & lr).AutoFilter field:=1, Criteria1:=c
dlr = Sheets(c.Value).Cells(Rows.Count, "a").End(xlUp).Row + 1
 .Range("a2:a" & lr).Copy Sheets(c.Value).Range("a" & dlr)
Next c
 .ShowAllData
 .Range("a1:a" & lr).AutoFilter
End With

Application.ScreenUpdating = True
Sheets("Data").Select

End Sub