Issue by using UsedRange for copying values from a worksheet and paste it into another workshet

[fabro5]

Hi,

I am struggling to do something really simple:
Adding a Macro to my active workbook which opens another workbook (located in the same folder), copy all the values from one sheet and pasting it into my active worksheet.

Here is my code:

Sub Button1_Click()


Dim filename As String
Dim nb_csp As String


Dim c As Workbook
Dim ws1 As Worksheet, ws2 As Worksheet




nb_csp = Range("'5- AOCS'!K12")


filename = "" & nb_csp & "_" & "BOM.xls"


Set c = Workbooks.Open(ActiveWorkbook.Path & filename)


Set ws1 = c.Sheets("ModuleInfoDetail")
Set ws2 = ActiveSheet


ws1.UsedRange.Copy ws2.Cells("A5")




End Sub

I got an error: Run-time error '5':
Invalid procedure call or argument

Could somebody help me?

thank you very much in advance

 

[Fluff]

This

ws1.UsedRange.Copy ws2.Cells("A5")

should be

ws1.UsedRange.Copy ws2.Range("A5")
or
ws1.UsedRange.Copy ws2.Cells(5,1)

But I suspect that it still won't work properly, as I think that you have the wrong sheet for ws2