Hi Nigel

Only add .value and it is working

Sub test()
Sheets("Book vs Plan").Range("d50:o50").Value = _
Sheets("plan").Range("d4:o4").Value
End Sub


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


"Nigel Bennett" wrote in message ...
When a user selects an item from a list box I would like
it to go and select a range of from a sheet and
insert it in to another sheet, I tried doing this

Sheets("Book vs Plan").Range("d50:o50") = Sheets
("plan").Range("d4:o4")

but that failed, no error messages but no data either.

Can someone help me with the correct syntax

Thanks