Dave thank you for your reply. I am somewhat new with Excel and do not know
how to setup macro. Would you give me the steps for this situation?
CJ
Option Explicit
Sub testme01()
dim FromCell as range
dim ToCell as range
with worksheets("sheet9999")
set fromcell = .range("a1")
end with
with worksheets("sheet8888")
set tocell = .range("x999")
end with
tocell.value = fromcell.value
'and maybe
tocell.numberformat = fromcell.numberformat
End Sub
If you're new to macros, you may want to read David McRitchie's intro at:
http://www.mvps.org/dmcritchie/excel/getstarted.htm
> Dave thank you for your reply. I am somewhat new with Excel and do not know
> how to setup macro. Would you give me the steps for this situation?
[quoted text clipped - 12 lines]
> >
> > Dave Peterson

Signature
Dave Peterson
Dave Peterson - 15 Nov 2006 22:59 GMT
And add one more line before the "End Sub" line:
fromcell.clearcontents
> Option Explicit
> Sub testme01()
[quoted text clipped - 39 lines]
>
> Dave Peterson

Signature
Dave Peterson
C J - 17 Nov 2006 20:02 GMT
Thanks so much for your help.
CJ
> And add one more line before the "End Sub" line:
>
[quoted text clipped - 45 lines]
>>
>> Dave Peterson