Workbooks("NameBook1").Worksheets("name1").Range(" Name1").value
"Data"

or


Workbooks("NameBook1").Worksheets("name1").Range(" Name1").value
Workbooks("NameBook2").Worksheets("name2").Range(" Name2").value
"Data"

or

Dim wsBook2 as Worksheet
wsBook2 = WorkBooks("Name2").WorkSheets("Name2")

wsBook2.Range("A1").Value = "Data

-----------------------------------------------
~~ Message posted from http://www.ExcelTip.com
~~View and post usenet messages directly from http://www.ExcelForum.com