Many thanks for your help. It is much appreciated.
However I got an interesting window I have never seen before headed "Identify Label" and
the message "There is more than one cell with this label" and Field 1 detailed. Just
intruiged as to waht is causing this.

Graham
Bob Phillips wrote:
Range("H1").Value = "=" & Range("A1").Value