Sheets("1").Range("b4:d33").copy
ActiveSheet.Range("b4.d33").PasteSpecial Paste:=xlValues
--
Return email address is not as DEEP as it appears
"Jonsson " wrote in message
...
Hi All,
I need to modify this code to paste only values.
Sheets("1").Range("b4:d33").Copy ActiveSheet.Range("b4:d33")
Any idea's?
//Thomas
---
Message posted from http://www.ExcelForum.com/