Sub test()
Dim bk1 as Workbook, bk2 as Workbook
Set bk1 = Workbooks("Workbook 1.xls")
set bk2 = Workbooks("Workbook 2.xls")
bk2.Sheets("sheet1").Range("A2").Value = _
bk2.Sheets("sheet1").Range("A2").Value + _
bk1.Sheets("Sheet1").Range("B" & Rows.Count).End(xlUp).Value
End Sub

both workbooks would need to be open.

--
Regards,
Tom Ogilvy



"STEVEB" wrote in
message ...

Hi,

Does anyone have suggestions for the following:

The following code works great for adding the value of Cell A2 Sheet 2
to the last cell in column B Sheet 1.


Sub test()
Sheets("sheet2").Range("A2").Value = Sheets("sheet2").Range("A2").Value
+ _
Sheets("Sheet1").Range("B" & Rows.Count).End(xlUp).Value
End Sub

I would like to add the last cell in Column B Sheet 1 in Workbook 1 to
the value of cell A2 sheet1 in Workbook 2.

Basically the same formula but adding cells from different
spreadsheets.

Any help would be greatly appreciated!


--
STEVEB
------------------------------------------------------------------------
STEVEB's Profile:
http://www.excelforum.com/member.php...fo&userid=1872
View this thread: http://www.excelforum.com/showthread...hreadid=483518