Editing VBA to separate tabs and save them

[jehuh]

Hello guys, I've been on the forums but finally signed up so thank you in advance.

Below I have a macro that allows me to create separate tabs based on an unique identifier found on a "master sheet." For example, I can create 5 tabs based on 5 different sales people for providing sales summaries using concatenation of sales person name and territory. However, when emailing these summaries, the files are very large. I can't figure out how to save them as smaller file sizes. Any input is greatly appreciated.


Sub Make_Save_Stocklift_Files()
Dim wbThis As Workbook
Dim wbNew As Workbook
Dim ws As Worksheet
Dim strFilename As String

Set wbThis = ThisWorkbook
For Each ws In wbThis.Worksheets
strFilename = wbThis.Path & "/" & ws.Name
ws.Copy
Set wbNew = ActiveWorkbook
wbNew.SaveAs strFilename
wbNew.Close
Next ws
End Sub

 

[ranman256]

Large datasets will make large xl workbooks.
did ya try zipping them afterwards to email?