This does just what I want:

Sub TestTransfer()
Sheets("Pages").Cells(10, 5).Copy Destination:=Sheets("Schedule").Cells(5,
2)
Sheets("Pages").Cells(10, 3).Copy Destination:=Sheets("Schedule").Cells(5,
3)
End Sub

except it copies across the formatting and well as the contents.

I want contents only copied across.

Please - thanks.

Francis Hookham