Modify this code to paste special, values

[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

 

[Jack Schitt]

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

 

[Ron de Bruin]

Hi Jonsson

One way

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

 

[Tom Ogilvy]

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

 

[Jonsson]

Hi, Ron and Tom

Thanks for your answers. The modification works great.

Thank you so much!

//Thoma