workbooks.open: select method of range class failed

[lomax]

Hi All,

Have been searching the web for a solution to this problem but nothing working for me.

Basically I recorded a macro which copies cell values into another workbook. This runs fine as a stand alone marco but I have tried to add it to a larger piece of code which returns the error: 'select method of range class failed'

Debug highlights: Range("A2").Select

Any help appreciated.

Sub Invoice_List()
'
' Invoice_List Macro

    Range("A26:G26").Select
    Selection.Copy
    
    Workbooks.Open Filename:="C:\Users\Dell\Desktop\Acoustic Files\Web Booking Macro\Testing Invoice List.xlsx"
   
    Worksheets("Invoices").Activate
 
    Range("A2").Select
    
    Rows("2:2").Select
    Selection.Insert Shift:=xlDown, CopyOrigin:=xlFormatFromLeftOrAbove
    
    Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
        :=False, Transpose:=False
    
   ActiveWorkbook.Save
    ActiveWindow.Close
    
End Sub

[Warship]

try deleting it. your next line is another "select" so it does nothing anyway

[Smitty]

Try without selecting:

Sub Invoice_List()
'
' Invoice_List Macro

    Range("A26:G26").Copy
    
    Workbooks.Open Filename:="C:\Users\Dell\Desktop\Acoustic Files\Web Booking Macro\Testing Invoice List.xlsx"
  
        With Worksheets("Invoices").Rows("2:2")
            .Insert Shift:=xlDown, CopyOrigin:=xlFormatFromLeftOrAbove
            .PasteSpecial Paste:=xlPasteValues
        End With
    
    ActiveWorkbook.Close True
    
End Sub

HTH,

[lomax]

In response to Warship: Ive tried that but then it highlights Rows(2:2).Select with an same error.

[lomax]

Wow Smitty, nice one, thanks!