Hi,

Am Fri, 12 Apr 2013 06:30:18 -0700 (PDT) schrieb :

Item1 Item2 Sales
Group1 1 $10
Group1 2 $20
Group1 3 $20
Group2 1 $20
Group2 1 $30
Group3 1 $10
Group3 1 $15

try:

Sub Filter()
Dim LRow As Long
Dim i As Integer
Dim shName As String

Application.ScreenUpdating = False
With Sheets("Sheet1")
LRow = .Cells(.Rows.Count, 1).End(xlUp).Row
For i = 1 To 3
shName = "Group" & i
.Range("A1:C" & LRow).AutoFilter _
field:=1, Criteria1:=shName
ActiveWorkbook.Sheets.Add after:=Sheets(Sheets.Count)
ActiveSheet.Name = shName
.Range("B1:C" & LRow).Copy _
Sheets(shName).Range("A1")
Next
..AutoFilterMode = False
End With
Application.ScreenUpdating = True
End Sub


Regards
Claus Busch
--
Win XP PRof SP2 / Vista Ultimate SP2
Office 2003 SP2 /2007 Ultimate SP2