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.