annoying subscript out of range error

  • Thread starter Thread starter PBcorn
  • Start date Start date
P

PBcorn

there's somehting wrong with the syntax of the following but i cant work out
what:

With Workbooks("G:\MI Report\Source Tables-DIR-Producers\Source Table -
Merge Template - Direct.xls")

.MergeWorkbook ("G:\MI Report\Source Tables-DIR-Producers\Source
Table-DIR-Producer JL.AP.xls")
.MergeWorkbook ("G:\MI Report\Source Tables-DIR-Producers\Source
Table-DIR-Producer SK.CG.xls")
.MergeWorkbook ("G:\MI Report\Source Tables-DIR-Producers\Source
Table-DIR-Producer ZB.KP.xls")

For Each sh In .Worksheets

sh.Visible = True
sh.Columns.EntireColumn.Hidden = False

Next sh

End With

error seems to be due to the full path ref.

i've tried taking out .xls but this makes no difference

please help
 
The with workbooks statement shouldn't have the Folder name, just the
basename of the file. Try this code.

Folder = "G:\MI Report\Source Tables-DIR-Producers\"
With Workbooks("Source Table - Merge Template - Direct.xls")

.MergeWorkbook (Folder & "Source Table-DIR-Producer JL.AP.xls")
.MergeWorkbook (Folder & "Source Table-DIR-Producer SK.CG.xls")
.MergeWorkbook (Folder & "Source Table-DIR-Producer ZB.KP.xls")

For Each sh In .Worksheets

sh.Visible = True
sh.Columns.EntireColumn.Hidden = False

Next sh

End With
 

Ask a Question

Want to reply to this thread or ask your own question?

You'll need to choose a username for the site, which only take a couple of moments. After that, you can post your question and our members will help you out.

Ask a Question

Similar Threads

Run-time error 9 - Subscript out of range (again) 2
Subscript out of range error 3
Subscript out of range error 2
Subscript out of range 2
Subscript out of Range 12
Subscript out of range? 1
Run-Time Error "9". Subscript out of range 3
Subscript out of range error 7

Back
Top