Sub Answer()
Workbooks("Workbook2.xls").Sheets("Sheet2").Range( "A1").Value =
Thisworkbook.Sheets("Sheet1").Range("A1").Value
End Sub

"WLMPilot" wrote:

I would like to know how to take data in cell A1 of Workbook1.Sheet1 and
place it in cell A1 of Workbook2.Sheet2 via a macro from workbook1?

Thanks.