Finaly it becaume this and works ok, thanks

Set Destwb = Workbooks.Add(template:=xlWBATWorksheet)

With ThisWorkbook.ActiveSheet
Lastrow = .Range("J" & Rows.Count).End(xlUp).Row
.Rows("2:" & Lastrow).SpecialCells(Type:=xlCellTypeVisible).Cop y
Destination:=Destwb.Sheets(1).Rows(1)
End With

Filip



"Joel" wrote in message
...
I modified one of rond De Bruin's macros.


Sub Mail_Workbook()
' Works with Excel 97-2007.
Dim wb As Workbook

Set wb = Workbooks.Add(template:=xlWBATWorksheet)

With ThisWorkbook.ActiveSheet
Lastrow = .Range("A" & Rows.Count).End(xlUp).Row
.Rows("1:" & Lastrow).SpecialCells(Type:=xlCellTypeVisible).Cop y _
Destination:=wb.Sheets(1).Rows(1)
End With


' Check to see if this is Excel 2007 and is not a macro-enabled file.
If Val(Application.Version) = 12 Then
' The code 51 represents the enumeration for a macro-free Excel 2007
Workbook (.xlsx).
If wb.FileFormat = 51 And wb.HasVBProject = True Then
MsgBox "There is VBA code in this xlsx file that will be removed if
you try to send this file." & vbNewLine & _
"Save the file first as xlsm and then try the macro again.",
vbInformation
Exit Sub
End If
End If

"Filips Benoit" wrote:

A marco please

A struggling to save the selection to a new workbook !

F


"Joel" wrote in message
...
I don't know if you want a macro or to do it manually. You can manually
copy
the filter rows by going to worksheet menu

Select the filtered visible rows
Edit - Go To - Special - Visible

Then copy the worksheet to a new workbook and mail like you did before.

"Filips Benoit" wrote:

Hey,

My sheet has 1000 row with payments of clients.
In row 1 i have autofilter to select 1 client
In row 1001 i have the subtotal-function showing the total for this
client.

I should print and email the clients data
The print only show his data, no problem.
But the email shows his data but contains all data !!!

How can i save only the clients data to a new workbook before emailing
it
to
the client ??

Thanks,

Filip


.



.