Subscript out of Range Error

[jdchap05]

I have very little experiance in VBA and I am trying to fix an Excel macro that is giving me a "Subscript out of range error." What the macro is trying to do is to take data from other Excel workboos, copy that data, and paste the data into the Excel workbook named SixEleven. Here is where it is highlighting the error:

Application.ScreenUpdating = False
Application.Run "'SixEleven.xlsm'!unhide"
Application.Run "'SixEleven.xlsm'!openIt"
Worksheets("MA.Front").Range("B16:B61").Copy
Workbooks("SixEleven").Sheets("6 Data").Range("A1:A46").PasteSpecial Paste:=xlPasteValues
Worksheets("MA.Front").Range("L16:R61").Copy
Workbooks("SixEleven").Sheets("6 Data").Range("L1:R46").PasteSpecial Paste:=xlPasteValues
Worksheets("MA.Front").Range("B68:B69").Copy
Workbooks("SixEleven").Sheets("6 Data").Range("A47:A48").PasteSpecial Paste:=xlPasteValues
Worksheets("MA.Front").Range("L68:R69").Copy

Any ideas on what is causing this. The workbook name, sheet name and range are all correct.

 

[Special-K99]

This error can also be due to the sheet not existing.
Are you sure "6 Data" exists in workbook SixEleven

 

[Fluff]

Depending on your system settings, you may need to add the file extension to the workbook name
ie Workbooks("SixEleven.xlsm")

 

[Joe4]

You are missing the file extension in your Workbook name. It needs to be there, i.e.
Workbooks("SixEleven.xls")

Make sure you choose the correct one (".xls", ".xlsx", ".xlsm",etc)

 

[jdchap05]

Yes.

 

[jdchap05]

Thanks the .xlsm appears to be working!

 

[Fluff]

Glad we could help & thanks for the feedback.