"Select method of range class failed" error

Hello,

I have a macro that opens a specified woorkbook that changes every month. There are formulas which are pasted to range I1 of the new workbook to calculate the totals on this sheet. Everytime i run the code though, I get an error that says "Select method of range class failed" and Range("I1").Select is apparently the error. Here is the code... can anyone help?

Private Sub CommandButton2_Click()
Dim Bkst As Variant
Bkst = Range("D27").Value
Range("D47:F50").Copy
Workbooks.Open Filename:="Q:\CRS PAID FILE (Lai-Yin)\STATEMENT OF ACCOUNT\2008\" & Bkst
  Range("I1").Select
   ActiveSheets.Paste
End Sub

I would declare Bkst as a Range, not a Variant.

Does the range actually have a value in it?

I do not see anything wrong except that ActiveSheets.Paste
should be ActiveSheet.Paste without the s
Check if D27 contains data of this format Book1.xls and if the file is actually opened.

Assume recently opened workbook as an activesheet that is,

a worksheet and not a chart sheet
is not protected so range I1 can be selected.

Andy,

I think you might have the answer there but im not quite sure i understand it fully... could you give me the code that your method is outlinning.

Thanks

I misread your initial code.

Maybe

 Dim Bkst   As String
    Bkst = Workbooks("Operating Leases 08").Sheets("Adjustments").Cells(27, 4).Value
    Workbooks.Open Filename:="Q:\CRS PAID FILE (Lai-Yin)\STATEMENT OF ACCOUNT\2008\" & Bkst & ".xls" 'is .xls missing?
'make sure the correct worksheet is used in target workbook
    Workbooks("Operating Leases 08").Range("D47:F50").Copy Workbooks(Bkst).Range("I1")

If you are running the code from a click event of a button on a worksheet make sure the button has the TakeFocusOnClick set to false.