Select Method of Range Class Failed

[SBF12345]

At the top of the script I have this

Dim wb1 As WorkbookDim wb4 As Workbook


Set wb1 = Workbooks("General_Account_Ledger.xls")
Set wb4 = ActiveWorkbook

then later I have this

wb4.Sheets("Customer Funds Received").Range("B10").Copy        wb1.Sheets("General Ledger").Range("A1").Select
        Selection.End(xlDown).Offset(1, 0).PasteSpecial Paste:=xlPasteValues

and I receive a "Select Method of Range Class Failed" error on line

 wb1.Sheets("General Ledger").Range("A1").Select

I am not totally sure why. If I thought it was a missing bracket or something I wouldn't be posting. Perhaps an error in the way I set the variable wb1?

 

[Joe4]

When switching between workbooks and sheets, you need to activate them first, i.e.

wb4.Sheets("Customer Funds Received").Range("B10").Copy
wb1.Activate
Sheets("General Ledger").Activate
Range("A1").End(xlDown).Offset(1, 0).PasteSpecial Paste:=xlPasteValues

 

[SBF12345]

that would be it, thanks!

 

[Zack Barresse]

Again, if you fully qualify your workbook/worksheet/range objects, there is absolutely no need to select anything. In fact, again, selecting objects is not recommended.

 

[SBF12345]

cool, It is running smoothly now. Thanks!