Adding Cells in two different Workbooks

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!

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" <[email protected]> wrote in
message news:[email protected]...
>
> 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
>

Thanks Tom!

Everything worked great! I really appreciate your help!