annoying subscript out of range error
 

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

annoying subscript out of range error
 

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


"PBcorn" wrote:

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