Breaking One workbook into many Tabs
 

try this

Sub SendJohnafilteredemail()
Range("A1").AutoFilter Field:=1, Criteria1:="John"
ActiveSheet.Copy
Application.DisplayAlerts = False
With ActiveWorkbook
For i = Cells(Rows.Count, 1).End(xlUp).Row To 1 Step -1
If Rows(i).Hidden = True Then Rows(i).Delete
Next i
Range("a1").AutoFilter
.SendMail ", _
Subject:="Your File "
.Close SaveChanges:=False
End With

Range("a1").AutoFilter
Application.DisplayAlerts = True
End Sub

--
Don Guillett
Microsoft MVP Excel
SalesAid Software

"Darin Kramer" wrote in message
...

Hi There

I have a tab called "Master" with information on lines 2 to 130, and
Columns A to S. Column F has information that is repeated on several
lines (persons name) I want to break the single tab "master" into a
number of sub tabs, each tab containing the information relevant only to
the individual.

Thus for example

Rows 1, 4, 7 and 9 within Column F state John. I want to extract all
relevant info for John (ie contents of Rows 1,4 and 7) into a new tab
called John (such that I can send JOhn his tab)

Is there a way to break up the Master tab into sub tabs?

Regards

D


*** Sent via Developersdex http://www.developersdex.com ***