Use the top left corner of the destination and make it the same size


Sub Macro1()
Dim ocells As Range
Set ocells = Range("a1:a5")

Dim nwkbk As Workbook
Set nwkbk = Workbooks.Open(ThisWorkbook.Path & "\Book2.xls")

dim ncells as range
set ncells = Range("B10").Resize(oCells.Rows.count,oCells.colum ns.count)

For i = 1 To 5
ncells(i) = ocells(i) ' How do I do this across wkbks then save
nwkbk
Next i

nwkbk.Save
nwkbk.Close
End Sub

--
Regards,
Tom Ogilvy

"mwc0914" wrote:


I want to copy a series of cells from wkbk to another, but I need to do
it one cell at a time (because of some additional processing) instead
of just a straight select/copy/paste. How do I define the range of
cells in my destination workbook so I can copy to them. I need to open
the destination wkbk & define the destination cells. This code kind of
gives the idea...

Sub Macro1()
Dim ocells As Range
Set ocells = Range("a1:a5")

Dim nwkbk As Workbook
Set nwkbk = Workbooks.Open(ThisWorkbook.Path & "\Book2.xls")

dim ncells as range
set ncells = ??????

For i = 1 To 5
ncells(i) = ocells(i) ' How do I do this across wkbks then save
nwkbk
Next i

nwkbk.Save
nwkbk.Close
End Sub


--
mwc0914
------------------------------------------------------------------------
mwc0914's Profile: http://www.excelforum.com/member.php...o&userid=24130
View this thread: http://www.excelforum.com/showthread...hreadid=572343