Hi

What you can do is you can just simply in Workbook B press "="

Then select WorkbookA so you would get this =[Workbook1]Sheet1!$?$?.

The above question marks showing the Cell Values. once you have done this
you can simply, copy the code =([Workbook1]Sheet1!$?$?)+1

Hope this is what you meant.

Thanks

"PeterM" wrote:

I have two workbooks open in Excel 2003. From WorkbookA I need to get the
currrent row number, add 1 to it and copy the contents from WorkbookA to
WorkbookB. Presently I have the following code that works...

Dim CurrentRow as Integer
Windows("workbooka.xls").Activate
CurrentRow = ActiveCell.Row
Range("a" & CurrentRow - 1).Select
Selection.Copy
Windows("workbookb.xls").Activate
Range("D2").Select
ActiveSheet.Paste

When the .Activate is executed, workbooka is displayed, then workbookb is
displayed when the second .Activate is executed...during that time it's
flashing windows all over the place...

my question: is there a way from workbookb to get the active row and cell
contents
from workbooka? this would eliminate the .Activates and appease my users...

thanks in advance for your help!