I would like to pass value from cell A1 in workbook1, sheet1 to cell A2 in workbook2, sheet2 but not success. Could anyone give me the solution. Thank you very much.

Hi Chanon,

Workbooks("Book2.xls").Sheets("Sheet1").Range("A1" ).Value = _
Workbooks("Book1.xls").Sheets("Sheet1").Range("A1" ).Value

You can pass value like this. :-)
--
Kind Regards
Colo
/_/_/_/_/_/_/_/_/_/_/_/_/_/_/_/_/_/_/_/_/_/_/_/_/_/_/_/_/_/_/_/
Colo of 'The Road of The Cell Masters' :)

URL:http://www.interq.or.jp/sun/puremis/...astersLink.htm


/_/_/_/_/_/_/_/_/_/_/_/_/_/_/_/_/_/_/_/_/_/_/_/_/_/_/_/_/_/_/_/


"Chanon" wrote in message
...
I would like to pass value from cell A1 in workbook1, sheet1 to cell A2 in
workbook2, sheet2 but not success. Could anyone give me the solution. Thank
you very much.

Hi, Col

I try many time for code like that you suggest me but it's not work. Error always shows " subscript out of range
Please anyone get me out another way for this solution. Thank you.

Hi Chanon,

May I ask you a question? Both workbooks must be opened before use this
code.
How is your case?


--
Kind Regards
Colo
/_/_/_/_/_/_/_/_/_/_/_/_/_/_/_/_/_/_/_/_/_/_/_/_/_/_/_/_/_/_/_/
Colo of 'The Road of The Cell Masters' :)

URL:http://www.interq.or.jp/sun/puremis/...astersLink.htm


/_/_/_/_/_/_/_/_/_/_/_/_/_/_/_/_/_/_/_/_/_/_/_/_/_/_/_/_/_/_/_/


"Chanon" wrote in message
...
Hi, Colo

I try many time for code like that you suggest me but it's not work.
Error always shows " subscript out of range "
Please anyone get me out another way for this solution. Thank you.