Hi Francis,

Try something like:

'=============
PublicSub TestTransfer()
With Sheets("Schedule")
.Cells(5, 2).Value = Sheets("Pages").Cells(10, 5).Value
.Cells(5, 3).Value = Sheets("Pages").Cells(10, 3).Value
End With
End Sub
'<<=============


---
Regards,
Norman


"Francis Hookham" wrote in message
...
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