dim bk as workbook, bk1 as workbook
set bk = workbooks("destbook.xls")
set bk1 = workbooks("srcbook.xls")
bk1.worksheets(1).copy after:=bk.worksheets(bk.worksheets.count)
activesheet.cells.copy
activesheet.cells.pastespecial xlValues

--
Regards,
Tom Ogilvy

"michael sofianos" wrote in message
...
Hi,

I want to copy worksheet in different workbook but i don't want to
copy
links with this sheet (values only) , how i can make that?

Thanks

Mike