Subscript out of range

I am new to VBA and am trying to create a copy of a sheet from one workbook to another workbook using the following code:

Workbooks.Open Filename:=bw_path & "\" & bw_file

'Opening the file from which I want to copy.

Sheets(bw_sh).Copy After:=ThisWorkbook.Sheets(3)

'Trying to copy the open worksheet into the workbook housing the macro.

I am getting the "subscript out of range" error message. I inherited this code and it used to work before. What am I doing wrong and what would be a suggested solution Any help will be appreciated

The workbook containing the macro does have 3 sheets.

I also tried to perform the action (that is copy the sheet from the one workbook to the workbook housing the macro) whilst recording a macro in Excel and this is what Excel recorded:

Sheets("D 1").Select
Sheets("D 1").Copy After:=Workbooks("BW vs SAP check.xls").Sheets(3)

When I mouse over bw_sh in the macro, the value of bw_sh is reflected as "D1"

"BW vs SAP check.xls" is the workbook housing the macro.

I cannot see why it does not work.

Hey,

Sheets("bw_sh").Copy After:=ThisWorkbook.Sheets(3)

Best Regards

Cathrine

I tried it but it does not work. Thanks, anyway.

Thanks, this was helpful. That was the problem.