Modify this code to paste special, values

J

Jonsson

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
 
J

Jack Schitt

Sheets("1").Range("b4:d33").copy
ActiveSheet.Range("b4.d33").PasteSpecial Paste:=xlValues
 
R

Ron de Bruin

Hi Jonsson

One way

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

Jonsson

Hi, Ron and Tom

Thanks for your answers. The modification works great.

Thank you so much!

//Thoma
 
Top