Need help to modify the VBA code

[jeremiah_j2k]

Hello snb,

Thanks for your immediate response. Can you help me modify my code? As of now, it can split the data from rows into multiple worksheet but is it possible for that new worksheet to be sent via email?

For i = 1 To WorkRng.Rows.Count Step SplitRow
resizeCount = SplitRow
If (WorkRng.Rows.Count - xRow.Row + 9) < SplitRow Then resizeCount = WorkRng.Rows.Count - xRow.Row + 1
xRow.Resize(resizeCount).Copy
Application.Worksheets.Add after:=Application.Worksheets(Application.Worksheets.Count)
Application.ActiveSheet.Range("A1").PasteSpecial
Set xRow = xRow.Offset(SplitRow)

<need an email code on this area that will send the worksheet added by this line (Application.Worksheets.Add) to the desired recipient via email>

 Next
Application.CutCopyMode = False
Application.ScreenUpdating = True
End Sub