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?

//Thoma

--
Message posted from http://www.ExcelForum.com

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/

Hi Jonsson

One way

Range("b4:d33").Value = Sheets("1").Range("b4:d33").Value


--
Regards Ron de Bruin
http://www.rondebruin.nl


"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/

ActiveSheet.Range("b4:d33").Value = _
Sheets("1").Range("b4:d33").Value

--
Regards,
Tom Ogilvy

"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/

Hi, Ron and Tom

Thanks for your answers. The modification works great.

Thank you so much!

//Thoma

--
Message posted from http://www.ExcelForum.com