referring to a range outside an activeworkbook

[youngda]

This should just be a simple problem, I've been taking the advice of several helpful people on this board but this code is still bothering me. Its a simple problem:

Dim wborignal As Workbook
Dim wbOut As Workbook

Set wboriginal = ActiveWorkbook

Workbooks.Add
Set wbOut = ActiveWorkbook

wboriginal.Range("A2", Cells(CurrentOutput, 21)).Copy

With wbOut.ActiveSheet
.Cells(2, 1).PasteSpecial Paste:=xlPasteValues
.Range("a1").Value = 8007706
End WIth

THe line that tries to copy is what is not working. Everything else should work fine. What am I missing here?

 

[venkat1926]

Quote

wboriginal.Range("A2", Cells(CurrentOutput, 21)).Copy

With wbOut.ActiveSheet
.Cells(2, 1).PasteSpecial Paste:=xlPasteValues
.Range("a1").Value = 8007706
End With
Unquote

Try this . it is possible you may succeed.

Wboriginal.activate
Range(range(“a2”),cells(currentoutput,21)).copy
Wbout.activate
Cells(2,1).pastespecial ………..

 

[jindon]

try

Dim wborignal As Workbook
Dim wbOut As Workbook

Set wboriginal = ActiveWorkbook

Set wbOut = Workbooks.Add

With wboriginal.ActiveSheet
.Range("A2", .Cells(CurrentOutput, 21)).Copy
End With

With wbOut.Sheets(1)
.Cells(2, 1).PasteSpecial Paste:=xlPasteValues
.Range("a1").Value = 8007706
End WIth

 

[Norie]

youngda

Could you please stick to the original thread?

And also answer the question(s) asked in it?