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
|
Similar Threads
